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ABSTRACT 

''k  BASIC  plotting  routine  for  the  Tektronix  4054  terminal  and  4663 
plotter  has  been  developed.  It  is  named  PLOT.  The  program  is  capable 
of  plotting  in  a  variety  of  coordinate  systems  -  Cartesian,  semilog  on 
X,  semi log  on  Y  or  log-log.  Two  separate  Y  axes  can  be  used.  The  user 
can  input  the  axes  boundaries,  axes  titles,  the  block  of  data  to  be 
plotted,  legends  for  the  data,  and  a  figure  caption.  Model  equations 
can  be  represented  by  dashed  lines  on  the  plot.  The  program  will 
accommodate  up  to  70  data  sets,  and  a  total  of  six  data  columns.  The 
data  can  be  manipulated  by  changing  data  points  or  sets,  adding  sets 
and  columns,  deleting  sets  or  columns,  sorting  data  in  a  column, 
generating  columns  from  existing  data  and  adding  two  data  files 
together.  This  report  is  a  working  manual  for  the  PLOT  program. 
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INTRODUCTION 

1.  There  is  a  continuing  need  in  the  physical  chemistry  group  at  DRES 
to  produce  a  variety  of  graphs,  quickly  and  in  a  publishable  format. 
To  meet  these  requirements,  a  BASIC  plotting  program  was  written  for 
use  with  the  Tektronix  4054  terminal  and  the  4663  plotter.  Several 
Tektronix  manuals  were  used  as  references  for  the  program^-^.  The 
program  has  the  capability  of  producing  plots  in  log-log,  semi log  or 
Cartesian  coordinates.  It  is  entitled  PLOT,  and  allows  the  user  to 
input  data  into  an  array,  choose  the  type  of  plot  required,  and  plot 
all  or  part  of  the  data.  This  report  is  designed  as  a  user's  guide  to 
the  program. 

2.  The  data  is  entered  into  an  array,  dimensioned  for  70  data  sets 
and  6  columns  of  data.  The  data  can  be  manipulated  in  several  ways. 
Individual  points  or  data  sets  can  be  changed.  Data  sets  or  columns 
can  be  deleted.  Data  may  be  added  as  sets  or  columns.  Columns  can 
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be  generated  (through  an  equation)  from  existing  data.  The  data  can  be 
sorted,  using  any  column.  The  data  can  be  stored  In  a  file  on  tape. 
As  well,  two  data  files  can  be  added  together  to  form  one  file. 

3.  The  plotting  routine  allows  the  user  to  plot  any  column  as  X,  and 
any  column  as  Y,  In  the  coordinate  system  of  his  choice  -  Cartesian, 
semi log  on  X,  semi log  on  Y  or  log-log.  The  user  can  also  have  a  second 
Y  axis,  along  the  right  hand  side  of  the  graph  (called  the  Z  axis). 
Any  column  can  be  chosen  as  Z,  and  the  axis  type  can  be  different 
from  the  Y  axis.  The  user  determines  the  range  of  the  X,  Y  and  Z  axes 
and  which  points  are  to  be  plotted  In  the  X,Y  or  X,Z  plots.  The  data 
can  be  plotted  with  axes,  or  without.  After  plotting,  a  least  squares 
fit  of  the  plotted  data  Is  calculated  (for  X,Y  and  X,Z  data)  and  the 
user  has  the  option  of  plotting  the  best  straight  line  through  the 
data.  The  equation  of  the  line  Is  displayed  on  the  screen.  The  user 
can  Input  a  legend  to  Identify  the  plotting  symbols,  and  a  title  or 
figure  caption.  As  well,  the  user  has  the  option  to  Input  an  equation, 
or  model,  as  a  function  of  the  X  data,  and  plot  the  resulting  curve 
with  a  dashed  line  pattern.  Once  a  plot  Is  satisfactory,  1t  can  be 
repeated  any  number  of  times  -  either  on  the  screen,  or  on  the 
plotter. 

4.  The  data  can  be  listed  on  the  screen  or  on  a  printer  (such  as  a 
Datacom  1200  terminal).  For  the  printer,  the  user  can  list  the  data 
with  a  different  number  of  significant  figures  for  each  column.  The 
columns  of  data  are  centered  for  an  8*s  x  11  sheet  of  paper.  The 
resulting  list  is  In  publishable  format,  although  column  headings  and  a 
table  number  must  be  added. 

5.  This  report  is  a  working  guide  to  the  PLOT  program.  Each  section 
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describes  a  particular  routine,  and  how  to  use  it.  The  program  is 
designed  to  be  versatile  and  can  accommodate  a  wide  range  of  plotting 
needs.  However,  it  can  be  tailored  by  the  user  to  meet  specific 
requirements.  Suggestions  for  such  changes  are  included  wherever 
possible.  Appendix  I  contains  the  USER  KEY  assignments.  Appendix  II 
documents  the  variables  used  in  the  program,  and  Appendix  III  lists  the 

sizes  of  the  arrays  in  the  program.  A  hard  copy  of  the  program  is  in 

Appendix  IV.  The  required  set  ups  for  the  DATACOM  1220  printer  and  the 
Tektronix  4663  plotter  are  in  Appendix  V  and  Appendix  VI,  respectively. 

STORAGE  REQUIREMENTS 

6.  The  program  is  in  File  1  of  the  tape.  The  file  length  is  65024 
bytes,  of  which  the  program  uses  40585  bytes.  After  loading  the 
program  into  the  Tektronix  4054  terminal,  there  are  ~  7200  bytes  of 
memory  remaining.  About  1000  bytes  are  required  for  variables  in  the 
different  routines.  The  remainder  is  available  for  data  storage. 

7.  The  data  is  stored  in  an  array,  A.  The  size  of  A  is  limited  by 

the  number  of  bytes  (~  6200)  available  in  the  memory.  The  array  is 

dimensioned  for  70  data  sets  and  six  columns  of  data.  If  the  user  has 
more  than  70  sets,  or  6  columns,  then  the  data  must  be  split  into  two 
data  files. 

STARTING  THE  PROGRAM 


8.  Insert  the  program  tape,  entitled  PLOT,  into  the  terminal.  To 
input  the  program  into  memory  and  start  it,  use  the  AUTOLOAD  button^, 
or  the  following  procedure 

a.  Find  the  file  the  program  is  stored  in.  FIND  1  (return) 
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b.  Load  the  program.  OLD  (return) 

c.  Start  the  program.  RUN  (return) 

9.  At  the  start  of  the  program,  the  terminal  settings  are  initialized 
and  the  variables  are  dimensioned.  Many  of  the  variables  are  set  to 
their  default  values.  The  screen  displays  the  name  of  the  program  and 
is  ready  for  data  input  (see  DATA  ENTRY). 

10.  Once  the  program  has  been  loaded,  USER  KEY  #1  will  also  restart 
the  program.  This  will  eliminate  any  previous  data  though  and  reset 
all  the  parameters  to  their  initial  values. ^ 

DATA  ENTRY  (USER  KEY  #1) 

11.  Data  is  entered  from  a  file  on  a  data  tape,  or  from  the  keyboard. 

a.  Tape  entry  -  the  user  is  asked  to  insert  the  data  tape,  and 

input  the  file  number  containing  the  data.  The  input  read 
from  the  tape  is: 

(1)  SI,  number  of  sets  of  data 

(2)  VI,  number  of  columns  of  data 

(3)  sets  of  data 

(4)  S$,  data  identification  (if  applicable) 

The  data  identification  and  the  data  sets  are  automatically 
listed  on  the  screen,  once  the  tape  input  is  finished. 

Note:  The  data  identification  is  not  always  in  the  data  file, 
especially  with  older  data  files.  If  it  is  not  found  in  the 
file,  the  data  identification  is  requested  by  the  program. 
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b.  Keyboard  entry  -  the  user  is  asked  to  input 

(1)  data  identification  (S$) 

(2)  number  of  columns  (VI) 

(3)  number  of  data  sets  (SI) 

(4)  data  sets 

A  bell  will  sound  at  the  end  of  the  data  entry,  when  SI  data 

sets  have  been  input. 

12.  The  data  is  stored  in  the  array  A.  The  array  is  dimensioned  for 
70  data  sets  and  six  columns.  If  the  number  of  user  data  sets  (SI) 
exceeds  70,  or  the  number  of  user  columns  (VI)  exceeds  6,  then  only 
part  of  the  data  will  be  read  in  -  enough  to  fill  the  array.  The 
memory  of  the  4054  is  not  large  enough  to  accommodate  a  larger  array, 
without  a  memory  error.  The  remaining  data  must  be  entered  through  the 
keyboard  into  another  file,  or  some  of  the  data  must  be  deleted  to 
accommodate  it. 

13.  If  there  are  more  data  sets  to  enter,  use  USER  KEY  #3,  adding 
sets  of  data.  Otherwise  the  data  can  now  be  listed  (USER  KEY  #2), 
modified  through  deletions  or  changes,  or  plotted  (USER  KEY  #9). 

Note:  In  some  cases  there  may  be  several  columns  of  data,  but  not  all 
columns  are  full  of  data.  However,  all  data  sets  must  have  a 
number  in  each  column.  It  is  not  advisable  to  put  a  zero  in 
blank  spots,  as  this  will  cause  an  error  in  any  log  plots 
involving  this  column  (log  0  is  undefined).  The  number  lE-lO 
should  be  used.  This  will  also  facilitate  the  data  listing,  when 
done  in  scientific  notation  on  the  printer  (see  DATA  LIST). 
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DATA  LIST  (USER  KEY  #2) 

14.  This  can  be  used  for  listing  data  on  the  screen,  or  on  the 
printer. 

a.  Screen  Listing  -  the  output  format  is  -5D.3D,  which  results 
in  a  maximum  of  5  digits  left  of  the  decimal  point  and  3 
digits  to  the  right^  (program  line  1220).  If  the  number  is 
larger  than  lO*’  or  smaller  than  10-3^  the  format  is  3E 
(scientific  notation,  with  three  digits  right  of  the  decimal 
point,  line  1240).  Values  of  lE-10  (i.e.,  zero  values)  are 
printed  as  ‘ 

b.  Printer  Listing  -  two  format  types  are  possible.  The  printer 
set-up  is  described  in  Appendix  V.  The  user  is  asked  'Is 
scientific  notation  format  required?  (Y  or  N)'. 

(1)  Yes  -  the  scientific  notation  format  allows  the  user  to 
have  a  different  number  of  significant  figures  (3  to  6) 
for  each  column.  This  is  especially  useful  for  printing 
tables  of  data  for  publication.  The  format  statements 
are  in  lines  10540  to  10770.  If  the  program  encounters  a 
value  of  lE-10  (i.e.,  a  blank)  then  a  is  printed, 
indicating  that  no  value  is  available.  The  columns  are 
spaced  to  fit  on  an  8V  wide  page.  Table  I  is  a  sample 
printer  output  using  the  scientific  notation  format. 

Note:  The  scientific  notation  formats  for  the  printer  are  designed  for 
5  or  less  columns  of  data.  The  formats  must  be  changed  if  more 
columns  are  required. 
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(2)  No  -  the  printer  output  is  the  same  as  the  screen  output 
above.  That  is  the  format  is  -5D.3D,  unless  the  number 
is  larger  than  10^  or  smaller  than  10-^,  in  which  case 
the  format  is  3E.  Values  of  lE-10  are  printed  as  '  - 
Table  II  is  a  sample  printer  output  using  the  screen 
format. 

Note:  Any  of  these  formats  can  be  changed  to  fit  a  specific  require¬ 
ment.  The  formats  written  into  the  program  were  for  general 
usage. 

ADDING  SETS  OF  DATA  (USER  KEY  #3) 

15.  When  the  program  is  started,  the  initial  number  of  data  sets  (SI) 
is  input  with  the  data.  The  array  is  dimensioned  for  70  data  sets.  If 
SI  is  less  than  70,  then  more  data  sets  can  be  added.  When  USER  KEY  #3 
is  pressed,  the  screen  shows  the  number  of  additional  sets  that  are 
allowed.  Input  from  the  user  is: 

a.  number  of  sets  to  be  added 

b.  input  data  after  set  number?  This  allows  the  new  data  to 
be  placed  anywhere  in  the  data  array. 

c.  input  additional  sets.  Each  data  set  must  have  the  same 
number  of  columns  (VI)  as  the  original  data. 

16.  The  new  data  set  is  then  listed  on  the  screen. 
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ADDING  COLUMNS  OF  DATA  (USER  KEY  #4) 

17.  When  the  program  is  started,  the  initial  number  of  columns  (VI)  is 
input  with  the  data.  The  data  array  is  dimensioned  for  six  columns  of 
data.  If  VI  is  less  than  6,  then  additional  columns  may  be  added.  For 
each  new  column,  there  should  be  SI  data  points,  so  every  data  set  has 
a  number  in  each  column.  There  should  be  no  blanks  in  the  new  columns. 
If  there  is  a  blank,  use  lE-10  instead  of  zero  (see  DATA  LIST  Section). 


18.  The  user  is  asked  for: 

a.  the  number  of  additional  columns 

b.  the  data.  For  two  additional  columns,  the  two  values  for  the 
first  data  set  are  entered,  then  the  two  for  the  second  data 
set,  etc. 

The  data  is  listed  automatically  at  the  end  of  the  new  data  entry. 
CHANGING  DATA  (USER  KEY  #5) 

19.  This  is  used  to  change  either  individual  data  points,  or  a  whole 
row  (set)  of  data. 

a.  data  points 

(1)  input  the  data  set  number  to  be  changed 

(2)  input  the  column  number 

(3)  input  the  new  data  point 

b.  sets  of  data 

(1)  input  the  data  set  number  to  be  changed 

(2)  input  the  new  row. 

There  must  be  a  value  in  each  column  of  the  row. 
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Note:  To  stop  either  type  of  change  routine,  press  the  carriage  return 
twice. 

DELETING  DATA  SETS  (USER  KEY  #6) 

20.  This  is  used  to  delete  data  sets,  either  individually  or  in  a 
block.  For  both  types  of  deletion,  all  the  sets  to  be  deleted  are 
input,  then  a  carriage  return  with  no  set  number  stops  the  input.  At 
this  point,  no  deletions  have  occurred,  but  all  the  set  numbers  are 
stored  in  the  array,  E.  The  sets  are  sorted  by  set  number,  and  the 
deletions  start  at  the  highest  set  number.  Thus  the  set  numbers  to  be 
deleted  can  be  input  randomly. 

Note:  If  an  incorrect  set  number,  or  block  of  sets  has  been  input  for 
deletion,  the  deletions  can  be  cancelled  by  pressing  the  BREAK 
key.  This  must  be  done  BEFORE  the  sorting  routine  has  started 
though.  Also  note  that  this  will  cancel  ALL  deletions. 

a.  Deleting  single  sets 

(1)  input  the  set  number  to  be  deleted 

(2)  the  values  in  the  deleted  set  are  printed  on  the  screen 

(3)  the  user  is  asked  for  the  next  set  to  be  deleted 

b.  Deleting  a  block  of  sets 

(1)  input  the  first  set  number  of  the  block,  and  the  last  set 
number  of  the  block 

(2)  the  first  and  last  set  numbers  for  the  block  are  printed  on 
the  screen. 

(3)  the  user  is  asked  for  the  first  set  number  of  the  next 
block  to  be  deleted 
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After  the  deletions,  the  remaining  data  sets  (renumbered)  are  listed  on 
the  screen.  The  value  of  SI  (number  of  sets)  is  updated. 

DELETING  DATA  COLUMNS  (USER  KEY  #7) 

21.  This  is  used  to  delete  a  whole  column  of  data  at  once.  The  user 
is  asked  to  input  the  column  number  to  be  deleted.  The  column  is 
deleted  and  the  remaining  data  Is  printed  on  the  screen.  Note  that 
there  is  no  way  to  stop  the  deletion,  once  the  column  number  has  been 
input. 

SORTING  ROUTINE  (USER  KEY  #11) 

22.  The  sorting  routine  allows  the  user  to  choose  a  column,  which  is 
then  sorted  by  value,  with  the  highest  value  placed  first.  Any  column 
can  be  sorted.  The  data  in  the  other  columns  is  automatically  moved 
too,  to  ensure  that  each  data  set  stays  intact.  The  sorting  routine  is 
useful  when  the  data  has  been  input  randomly,  but  should  be  in  order 
before  listing  on  the  printer.  This  routine  can  be  used  any  number  of 
times.  The  sorted  data  is  printed  on  the  screen  at  the  end  of  the 
routine. 

STORING  DATA  ON  TAPE  (USER  KEY  #8) 

23.  This  option  is  used  if  the  data  was  input  through  the  keyboard,  or 
the  data  has  been  altered. 

a.  The  program  states  the  minimum  number  of  bytes  required  for  the 
data  in  the  file.  The  file  should  be  marked  with  this  number 
of  bytes. ^ 
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b.  The  data  tape  is  then  inserted  (arrow  in  the  UNSAFE  position). 2 

c.  The  user  inputs  the  file  number  for  storage  of  the  data.  If 
there  is  not  enough  room  in  the  file,  error  message  48^  will 
result. 

24.  The  data  is  stored  on  the  tape  in  the  following  order: 

a.  number  of  sets  (SI)  and  number  of  columns  (VI) 

b.  data  sets  (array  A) 

c.  data  identification  (S$) 

25.  The  data  tape  is  r  noved  then,  to  prevent  accidentally  writing  on 

it. 

Note:  The  data  tape  should  be  secured  by  putting  the  arrow  to  the  SAFE 
position. 2  In  this  position,  the  tape  can  be  read  only,  not 
written  on, 

GENERATING  A  COLUMN  FROM  DATA  (USER  KEY  #12) 

26.  This  option  allows  the  user  to  generate  a  column  of  data  using  the 
existing  data,  by  inputing  a  transformation  equation.  The  column  to  be 
transformed  is  written  in  array  format,  i.e.,  A(I,n)  where  n  is  the 
column  number  used  in  the  transformation.  The  equation  is  input  by 
recalling  line  10260,  and  changing  the  RIGHT  HAND  SIDE  of  the 
equation. 

i.e.  10260  A(I,  Vl+1 )=A( I ,4)*10 

As  written  in  the  program,  column  4  is  multiplied  by  ten  to  generate  a 
new  column.  The  right  hand  side  of  the  equation  is  changed  according 
to  the  transformation  required. 
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27.  The  new  column  is  generated  by  pressing  USER  KEY  #13. 

Note:  A  second  column  can  be  generated  at  the  same  time  by  adding 
another  line  at  10265,  similar  to  10260,  with  the  second 
transformation.  Use  the  notation 

10265  A(I,  V1+2)=A(I,  Vl+l)/2.2 
10280  VI  =  Vl+2 

Note:  Using  this  routine  to  generate  two  columns  at  once  should  be  used 
with  caution.  The  array  is  only  designed  to  hold  six  columns. 
If  more  are  attempted,  a  dimension  error  will  result. 

28.  All  data  will  be  listed  on  the  screen  automatically. 

ADDING  TWO  FILES  OF  DATA  (USER  KEY  #16) 

29.  Two  files  of  data,  with  the  same  number  of  columns,  may  be  added 
to  form  one  large  file.  However,  the  total  number  of  data  sets  cannot 
exceed  70,  or  a  dimension  error  will  result.  There  are  two  options  - 
data  may  be  added  to  the  current  file  of  data,  or  two  data  tape  files 
may  be  added  together.  If  two  tape  files  are  added  together,  the 
current  data  in  memory  is  erased. 

a.  Adding  to  the  current  file  - 

(1)  the  user  is  asked  to  insert  the  data  tape  containing  the 
second  file,  and  input  the  file  number. 

(2)  the  number  of  sets,  number  of  columns  and  the  data  from 
this  file  is  read  in. 
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(3)  then  one  large  array  is  formed  containing  both  sets. 

(4)  the  user  is  asked  to  input  the  data  identification  (S$) 
for  the  new  file. 

(5)  the  new  data  is  then  printed  on  the  screen. 

b.  Adding  two  data  tape  files  - 

(1)  the  first  tape  is  inserted  and  the  file  number  input 

(2)  the  number  of  sets,  number  of  columns  and  the  data  is 

read  from  this  file 

(3)  the  second  tape  is  inserted  and  the  file  number  input 

(4)  the  number  of  sets,  number  of  columns  and  the  data  is 

read  from  this  file 

(5)  one  large  array  is  formed 

(6)  the  user  is  asked  to  input  the  data  identification  (S$) 

(7)  the  data  is  listed  on  the  screen. 

It  is  a  good  idea  to  store  the  new  data  on  a  tape  now. 

Note;  The  routine  will  end  if  the  two  files  of  data  do  not  have  the 

same  number  of  columns.  The  number  of  columns  can  be  changed  by 

deletion,  adding  a  column,  or  generating  a  column. 

PLOTTING  AXES  AND  DATA  (USER  KEY  #9) 

30.  This  is  the  main  plotting  routine.  The  program  is  capable  of 
plotting  Cartesian  coordinates,  semi log  on  X,  semi log  on  Y  or  log-log 
plots.  Two  separate  Y  axes  are  allowed.  The  user  inputs  the  boun¬ 
daries  for  the  axes,  the  axes  titles,  and  the  data  points  to  be 
plotted.  There  is  also  an  option  for  printing  a  legend  and  a  figure 
title.  A  typical  plot  is  shown  in  Figure  1. 
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31.  There  is  a  choice  of  symbol  size,  symbol  type  (seven  different 
ones)  and  output  device  (screen  or  plotter).  A  least  squares  fit  is 
calculated  for  all  plots,  with  the  option  to  plot  the  best  straight 
line  through  the  data.  This  is  only  relevant,  though,  for  linear 
plots.  As  well,  the  user  has  the  option  to  input  an  equation  to 
calculate  Y  values  from  X  data.  The  calculated  Y  vs  X  will  be  plotted 
as  a  dashed  line. 

32.  The  user  is  asked  several  questions  before  the  plot  is  finalized. 
The  input  is  outlined  in  the  following  paragraphs.  The  set-up  required 
for  the  plotter  is  detailed  in  Appendix  VI. 

33.  Are  two  separate  Y  axes  required?  Two  separate  Y  axes  (Y  and  Z) 
are  used,  on  occasion,  with  a  common  X  axis.  If  this  option  is  chosen, 
further  information  about  the  X,  Y  and  Z  axes  are  required.  Otherwise, 
only  the  X  and  Y  axes  are  dealt  with. 

34.  Enter  the  X  column  number  and  the  Y  column  number  (and  the  Z 
column  number  if  required). 

35.  Select  the  plot  type  for  X,  Y  plot 

(a)  Cartesian 

(b)  semi  log  (log  along  X) 

(c)  semi  log  (log  along  Y) 

(d)  log-log 

36.  For  an  X,  Y,  Z  plot,  the  Z  axis  can  be  the  same  as  the  Y  axis,  or 

different.  The  user  then  chooses  for  Z  either 

(a)  Cartesian  axis,  or 

(b)  log  axis 
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Note;  When  the  axis  types  are  selected,  the  corresponding  columns,  as  a 
whole,  are  processed.  For  a  log  axis,  all  of  the  numbers  in  that 
column  are  transformed  to  log  values,  in  anticipation  of  the 
plot.  It  is  essential  that  the  data  be  in  the  correct  format  at 
this  stage,  or  error  message  23  will  result^.  There  should  be  no 
zeros  in  the  data,  if  log  axes  are  selected  (log  0  is  undefined), 

37.  Draw  axes  and  data  or  data  only?  Usually,  both  axes  and  data  are 
drawn  first.  Other  data  can  be  added  later  then,  with  the  data  only 
option. 

38.  Input  titles  for  X,  Y  (and  Z)  axes.  For  each  axis,  either  upper 
or  lower  case  letters  or  any  characters  can  be  used.  The  maximum 
number  of  characters  (including  blanks)  is  50.  The  titles  are 
automatically  centered  about  the  corresponding  axis.  Titles  with 
subscripts  and  superscripts  can  be  handled  using  the  CTRL  K  and  CTRL  J 
characters  (i.e.  holding  the  CTRL  and  K  or  0  keys  at  the  same  time)^. 
For  example,  the  following  title: 

SHEAR  RATE  (sec-M 

would  be  input  as; 

SHEAR  RATE  (sec  CTRL  K  -1  CTRL  J). 

In  this  example,  the  CTRL  K  moves  the  pen  up  one  line  so  the  -1  appears 
as  a  superscript.  The  CTRL  J  moves  the  pen  down  one  line  so  the  end 
bracket  is  properly  aligned.  Subscripts  would  be  input  in  a  similar 
manner,  using  CTRL  J,  then  CTRL  K. 

Note;  If  multiple  plots  are  being  produced,  with  the  same  axes  titles, 
it  is  more  convenient  to  delete  the  lines  inputing  the  titles  and 
enter  titles  directly  into  the  program.  To  do  this,  delete  lines 
4240,  4250,  4260  and  4270  (also  4290  and  4300  for  Z  axis).  Then 
insert  the  titles  as  follows: 
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4240  X$=  " _ (chosen  title  for  X  axis) 

4260  Y$=  " _ (for  Y  axis) 

(4290  W$=  " _ “(for  Z  axis)) 

The  titles  will  remain  in  memory  as  long  as  the  machine  is  on  and 
the  program  is  not  reloaded  into  memory. 

39.  Input  the  first  and  last  set  numbers  to  be  plotted 

(a)  for  X,Y  plot 
((b)  for  X,Z  plot) 

All  of  the  data  can  be  plotted,  or  any  fraction  of  it. 

40.  Input  a  legend  and  title.  The  user  has  three  options  for  the 
legends  and  titles. 

(a)  No  legend 

(b)  New  legend.  If  this  option  is  chosen,  the  plot  will  be 
displayed  automatically  on  the  screen,  at  the  end  of  the 
selection  process.  The  user  inputs  the  legend  and  title 
when  the  two  crosshairs  appear  on  the  screen  at  the  end 
of  the  plot. 

(c)  Old  legend.  The  legend  that  is  memory  will  be  printed 
after  the  plot  has  been  displayed,  on  either  the  screen 
or  the  plotter.  The  user  cannot  change  it  at  all.  If 
this  option  is  selected,  and  there  is  no  legend  in  the 
memory,  then  it  is  as  if  the  "No  Legend"  option  had  been 
chosen. 

The  legends  and  titles  input  is  more  fully  explained 
under  the  LEGENDS  AND  TITLES  routine. 
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41.  Selection  Menu  Routine  -  this  allows  the  user  to  choose  the  symbol 
size,  the  output  device,  the  symbol  type,  and  the  dashed  line  option. 

(a)  Symbol  Size.  This  is  a  multiplier  to  the  symbol  size.  The 
default  is  one.  Values  <  1  will  result  in  smaller  symbols 
while  values  >  1  will  yield  larger  symbols. 

(b)  Output  device.  This  is  where  the  plot  will  be  drawn.  The 
choices  are: 

(1)  Screen  -  used  initially  to  check  the  plot  for  any 
errors 

(2)  Plotter  -  used  for  the  final  output 

(c)  Symbol  type.  There  are  seven  different  symbol  types  to 

choose  from. 

(1) triangle  (default) 

(2)  square 

(3)  diamond 

(4)  cross 

(5)  X 

(6)  star 

(7)  dot 

The  symbol  type  is  chosen  for  the  X,  Y  plot,  then  (if 
necessary)  for  the  X,  Z  plot. 

Note:  When  plotting  data,  sometimes  it  is  convenient  to  use  more  than 
one  symbol  type  for  the  data  i.e.,  a  star  inside  a  box  or  a  dot 
inside  a  triangle.  This  is  done  by  plotting  with  one  symbol, 
then  repeating  the  plot  (or  drawing  data  points  only)  with  the 
second  symbol . 

(d)  Dashed  lines  on  a  plot.  This  is  used  for  drawing  fitted 
curves.  The  equation  for  the  curve  is  input  by  the  user. 
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The  options  are 

(1)  no  dashed  line 

(2)  dashed  line  on  the  X,Y  graph 
((3)  dashed  line  on  the  X,Z  graph) 

Note;  It  is  important  to  distinguish  between  the  X,Y  and  the  X,Z 
graphs,  so  the  dashed  line  is  positioned  properly. 

If  a  dashed  line  is  selected,  there  are  three  different  dash 
patterns  for  the  plotter.  (There  is  only  one  for  the  screen 
_ ). 

(1) 

(3)  . 

Note;  More  than  one  set  of  dashed  lines  can  be  plotted  on  a  single 
graph,  by  using  the  PLOT  DATA  ONLY  option  (USER  KEY  #10). 

The  equation  of  the  dashed  line  is  imput  in  line  14890.  It 
is  of  the  form  N=f(R),  where  R  is  the  X  column  data  and  N  is 
the  generated  Y  component. 

i.e.  14890  N( I )=R( I )*1.5 

In  this  example,  the  X  data  (R(I))  is  multiplied  by  1.5  to 
generate  the  Y  data  (N(I)). 

To  input  the  dashed  line  equation 

(1)  recall  line  14890 

(2)  change  the  right  hand  side  of  the  equation 

(3)  press  USER  KEY  #18 

(e)  END  Selection  -  The  selection  menu  reappears  after  each 
choice,  until  END  Selection  is  chosen. 
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42.  At  this  point,  all  the  selections  have  been  made  and  the  graph  is 
ready  to  be  plotted.  The  plot  is  drawn  in  the  following  manner: 

(a)  bottom  X  axis  and  tic  marks 

(b)  top  X  axis  and  tic  marks 

(c)  left  Y  axis  and  tic  marks 

(d)  right  Y  axis  (or  Z  axis)  and  tic  marks 

(e)  numbering  the  Z  axis 

(f)  numbering  the  X  axis 

(g)  numbering  the  Y  axis 

(h)  labelling  the  X  axis 

(i )  labelling  the  Y  axis 

(j)  labelling  the  Z  axis 

(k)  drawing  the  X,  Y  data  points 

(l)  calculation  of  best  straight  line  through  the  X,Y  data 

(m)  drawing  the  X,Z  data  points 

(n)  calculation  of  the  best  straight  line  through  the  X,Z 
data 

(o)  drawing  the  dashed  line  (if  selected) 

(p)  printing  any  legends  or  titles  (if  selected)  or 
accepting  input  of  new  legends  and  titles 

A  typical  plot  is  shown  in  Figure  1. 

43.  The  program  calculates  the  best  straight  line  through  the  X,  Y 
data  using  a  least  squares  routine.  The  user  has  the  option  of 

a.  plotting  the  line  (on  the  chosen  output  display)  and  printing 
the  equation  (on  the  screen  only), 

b.  printing  the  equation  only,  on  the  screen 

c.  neither 

The  best  straight  line  is  calculated,  no  matter  what  the  shape  of  the 
curve.  It  only  has  meaning,  though,  for  a  linear  plot.  The  best 
straight  line  through  the  X,Z  data  points  is  also  calculated,  and  the 
options  for  printing  are  the  same  as  for  the  X,  Y  data. 
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44.  If  the  “Old  Legend"  option  was  selected,  it  is  printed  on  the 
plot,  at  the  end  of  the  plotting  routine.  If  the  "New  Legend"  option 
was  selected,  two  crosshairs  now  appear  on  the  screen,  waiting  for 
input.  The  input  for  this  is  fully  described  in  the  section  LEGENDS 
AND  TITLES. 

45.  Once  the  graph  has  been  completed,  the  user  can  repeat  the  graph, 
using  the  same  parameters,  by  selecting  the  REPEATING  A  PLOT  option 
(USER  KEY  #19).  Otherwise,  more  data  can  be  added  to  the  graph  by 
using  the  PLOTTING  DATA  ONLY  option  (USER  KEY  #10). 

LEGENDS  AND  TITLES 


46.  This  section  describes  how  to  input  the  legends  and  titles,  if  the 
"New  Legend"  option  was  selected.  If  this  was  selected,  the  plot  will 
be  displayed  on  the  screen  only  -  not  on  the  plotter.  Two  crosshairs 
will  appear  on  the  screen  at  the  end  of  the  plot,  awaiting  input. 
There  are  also  two  grids  superimposed  on  the  plot  for  convenience: 

a.  below  the  X  axis  title,  for  the  figure  caption 

b.  at  the  top  third  of  the  axes  grid,  for  the  legend 

The  crosshairs  can  be  positioned  anywhere  on  the  screen,  not  only  where 
the  grid  lines  appear. 

47.  To  input  a  legend,  position  the  two  crosshairs  to  the  desired 
location  on  the  graph.  The  type  of  input  at  this  position  is  governed 
by  the  key  pressed.  The  key  selections  are  as  follows; 

a.  (J  -  writing  only,  no  symbols.  When  this  is  selected,  a 

question  mark  appears,  waiting  for  alphanumeric  input.  The 
input  is  stopped  when  the  carriage  return  is  pressed. 

b.  1  -  triange 
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c.  2  -  square 

d.  3  -  diamond 

e.  4  ~  cross 

f.  5  -  X 

g.  6  -  star 

h.  7  -  dot 

1.8-  correct  last  entry.  Pressing  the  8  key  erases  the  previous 
entry,  entirely.  If  the  previous  entry  was  a  symbol,  it  is 
erased  from  memory  (but  not  from  the  screen  display).  If  the 
previous  entry  was  a  line  of  writing,  the  whole  line  of  writing 
is  erased  from  the  memory. 

j.  9  -  end  of  input.  The  crosshairs  disappear  when  9  is  pressed. 

Note:  For  option  0,  the  writing  appears  slightly  above  the  horizontal 
cursor.  However,  for  options  1-7,  the  symbols  are  centered 
around  the  intersection  of  the  two  crosshairs. 

Note:  It  is  easy  to  forget  to  press  0  when  writing  only  is  required. 
Then,  the  crosshairs  remain  until  one  of  the  10  keys  specified 
above  is  pressed.  If  the  9  key  is  pressed,  then  all  input  stops. 
To  get  around  this  problem,  press  USER  KEY  #17,  and  reinput  all 
the  legend  and  title  information. 

48.  USER  KEY  #17  can  be  used  to  delete  the  old  legend,  and  input  a  new 
legend.  This  is  particularly  useful  when  a  typing  error  occurs  or  when 
the  input  was  accidentally  stopped,  as  described  in  the  note  above. 
Once  USER  KEY  #17  is  pressed  the  memory  is  cleared  of  the  previous 
legend  and  title  information.  The  two  grids  appear,  and  the  two 
crosshairs.  While  this  key  can  be  pressed  anytime,  it  is  a  good  idea 
to  only  use  it  when  plot  is  displayed  on  the  screen,  especially  if 
writing/symbols  are  required  outside  of  the  grids. 
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49.  The  grids  are  displayed  only  for  convenience  in  aligning  the 

alphanumeric  input.  They  are  not  displayed  when  the  "OLD  LEGEND" 
option  is  selected,  and  the  legend  in  memory  is  printed. 

50.  Each  grid  has  room  for  5  lines  of  writing.  To  use  the  grid, 

position  the  vertical  crosshair,  place  the  horizontal  crosshair  on  one 
of  the  horizontal  grid  lines,  press  (3,  then  input  the  line  of  writing. 
For  symbols,  line  the  horizontal  crosshair  half  way  between  two 

horizontal  grid  lines,  then  press  the  desired  symbol  number. 

REPEATING  A  PLOT  (USER  KEY  #19) 

51.  If  the  identical  plot  to  the  last  one  is  required  (i.e.,  same 

axes,  titles,  and  data  points)  then  this  option  is  used.  This  is 
convenient  when  the  plot  is  correct  on  the  screen,  and  a  plotter  copy 
is  required,  or  when  more  than  one  plotter  copies  are  needed.  The  user 
can  change  the  items  in  the  Selection  Menu  only.  That  is: 

a.  symbol  size 

b.  output  device 

c.  symbol  type 

d.  dashed  line 

There  is  also  the  option  for  plotting  the  best  straight  line  through 
the  data  or  not. 

PLOTTING  DATA  ONLY  (USER  KEY  #10) 

52.  Sometimes  more  than  one  set  of  data  is  required  on  a  graph.  Then, 
the  Plotting  Data  Only  option  is  used,  after  the  'initial'  plot  is 
finished,  to  add  on  other  data  points.  No  axes  are  drawn  with  this 
option. 
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53.  The  user  input  Is: 

a.  number  of  first  and  last  data  points  to  be  plotted 

b.  the  legends  and  titles  option 

c.  selection  menu  for 

(1)  symbol  size 

(2)  output  device 

(3)  symbol  selection 

(4)  dashed  line 

54.  The  data  points  are  then  plotted  on  the  specified  output  device. 
The  use  again  has  the  option  of: 

a.  plotting  the  best  straight  line  on  the  output  device  and 

printing  the  line  equation  on  the  screen 

b.  printing  the  line  equation  on  the  screen  only 

c.  neither 

Next,  any  dashed  lines  are  drawn,  and  the  legends  and  titles  are 
printed. 

55.  This  option  can  be  repeated  any  number  of  times,  to  plot  all  the 
data  needed  for  an  axes  set. 

Note:  If  a  zero  is  input  for  either  the  first  or  last  number  to  be 
plotted,  then  no  points  are  drawn,  but  the  dashed  line  and 
legends  will  be  plotted.  This  is  useful  if  more  than  one  dashed 
line  is  required  on  a  graph.  It  is  also  useful  if  a  legend  is 
required,  but  it  was  not  input  when  the  axes  were  drawn. 

CALCULATING  Y  OR  Z  FROM  X,  AFTER  LEAST  SQUARES  CALCULATION 
(USER  KEY  #14) 

56.  After  plotting  the  X,  Y  data  points,  the  program  calculates  the 
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best  straight  line  through  the  data.  The  equation  of  the  straight  line 
can  be  used  to  calculate  values  of  Y  from  X,  with  this  routine.  The 
values  of  Z  can  also  be  calculated  from  X,  using  the  equation  from  the 
X,  Z  data.  The  goodness  of  the  fit  depends  on  the  value  of  R2, 
calculated  in  the  least  squares  routine. 

Note:  USER  KEY  #14  should  only  be  used  after  a  plot  has  been  made,  and 
the  least  squares  fit  calculated  for  the  current  data. 

57.  The  user  input  is: 

a.  calculate  Y  or  Z  from  X? 

b.  list  on  screen  or  printer?  Both  X  and  the  calculated  Y  (or  Z) 
values  are  listed. 

c.  input  X  values. 

The  routine  stops  with  an  empty  carriage  return.  A  sample  output  from 
the  printer  is  listed  in  Table  III. 

CALCULATING  X  FROM  Y  OR  Z,  AFTER  LEAST  SQUARES  CALCULATION 
(USER  KEY  #15) 

58.  This  routine  calculates  X,  from  either  Y  or  Z,  based  on  the 
equation  of  the  best  straight  line  through  the  data  points  (either  the 
X,  Y  data  or  the  X,  Z  data).  The  goodness  of  the  fit  depends  on  the 
value  of  R2,  calculated  in  the  least  squares  routine. 

Note:  User  Key  #15  should  only  be  used  after  a  plot  has  been  made,  and 
the  least  squares  fit  calculated  for  the  current  data. 
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59.  The  user  input  is: 

a.  calculate  X  from  Y  or  Z? 

b.  list  on  screen  or  printer?  Both  the  Y  (or  Zl  value  and  the 
calculated  X  value  are  listed. 

c.  input  Y  (or  Z)  values 

The  routine  is  stopped  with  an  empty  carriage  return.  A  sample  output 
from  the  printer  is  listed  in  Table  IV. 


UNCLASSIFIED 

■  '.vV 


■  im  U  I  I H  1 1 1 
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TABLE  I:  SAMPLE  PRINTER  OUTPUT  USING  THE  SCIENTIFIC  NOTATION  FORMAT 


vj  ».  ;.iT  ^  Ji  f-j 


UNCLASSIFIED 


TABLE  III: 


TFST  DATA 


y  =  131 
X=78.4 
y  =  55 . 3 
y  =  39.2 
X  =  27.A 
X  =  15.7 
X  =  ll  .  1 


SAMPLE  PRINTER  OUTPUT  FOR  Y  CALCULATED  FROM  X,  AFTER  THE  LEAST 
SQUARES  CALCULATION _ 


Y  E8T=48 .5731458317 

Y  EST=29. 5025326632 

Y  FST=21 . 1274154733 

Y  EST=15. 2902125833 

Y  E8T=11 ,084526029 

Y  E.ST  =  6. 77007171904 

Y  EST=5. 10229946476 


UNCLASSIFIED 


UNCLASSIFIED 


1 

i 


TABLE  IV:  SAMPLE  PRINTER  OUTPUT  FOR  X  CALCULATED  FROM  Y,  AFTER  THE  LEAST 
_ SQUARES  CALCULATION _ _ _ 


TEST  DATA 


Y=47.85  X 
Y=30.06  X 
Y=21.68  X 
Y=15.56  X 
Y=11.16  X 
Y=6.383  X 
Y=4.538  X 


EST= 129 .005440601 
EST=79. 9375898853 
EST=56 .8241222634 
EST=39. 9441196565 
EST  =  27 .8081700698 
E5T  =  14 .6323902571 
EST=9. 68147445982 


UNCLASSIFIED 


UNCLASSIFIED 


LEGEND 


X,Y  DATA 
X,2  DATA 


4.20  > 


1  2 

10  t0 

3 

10 

X  AXIS 

Figure  I 

Typical  plot  obtained  from  the 
the  beet  straight  line  through 

PLOT  program,  showing 
the  X,Y  data. 

UNCLASSIFIED 

UNCLASSIFIED 


USER  KEY  ASSIGNMENTS 

#1  data  entry  (tape  or  keyboard) 

#2  data  list  (on  screen  or  printer) 

#3  adding  sets  of  data 
#4  adding  columns  of  data 
#5  changing  data  (points  or  sets) 

#6  deleting  data  sets  (individually  or  in  blocks) 

#7  deleting  data  columns 
#8  storing  data  on  mag  tape 
#9  plotting  data  and  axes 
#10  plotting  data  only 
#11  sorting  routine 

#12  generating  a  column  from  existing  data 
#13  continuation  of  column  generation 

#14  calculate  Y  or  Z  from  X,  after  Least  Squares  Calculation 
#15  calculate  X  from  Y  or  Z  after  Least  Squares  Calculation 
#16  adding  two  files  of  data  (same  number  of  columns) 

#17  input  Legend  and  Title 

#18  continuation  of  dashed  line  on  plot 

#19  repeating  a  plot 


UNCLASSIFIED 


^  V-v 


UNCLASSIFIED 


> 


A 

A1 

A2 

A3 

A4 

A5,A6 


A9 

AS 

B 

B1 

B3,B4 


C 

Cl,  C$ 
D 

Dl,  D$ 
D2 

D3,D4 
D6,  D7 


VARIABLES  USED  Appendix  II 

2-dimensional  array  used  to  hold  all  the  data 
variable  used  when  adding  sets  of  data.  It  is  the  actual 
number  of  added  sets. 

number  of  additional  columns,  when  adding  columns  of  data 
used  in  the  least  squares  calculation 
symbol  selection  number  for  X,Z  plot 
used  when  calculating  X  from  Y  or  Z  (after  least  squares 
calculation)  where  A3=A6  for  X  from  Y  calculation 
and  A3=A5  for  X  from  Z  calculation 
used  in  numbering  the  Z  axis  in  Cartesian  coordinates.  When 
A9=0,  there  are  no  exponents  in  the  axis  numbers, 
symbol  type  associated  with  A4  in  X,Z  plot 
2-dimensional  array  used  for  additional  data  sets  when 
adding  sets  of  data 
used  in  the  least  squares  calculation 
used  when  calculating  X  from  Y  or  Z  (after  least  squares 
calculation)  where  B1=B4  for  X  from  Y  calculation 
and  81=83  for  X  from  Z  calculation 
1-dimensional  array  used  for  additional  columns  when  adding 
columns  of  data 

used  for  changing  data  points,  indicates  the  column  number 
1-dimensional  array  used  for  initial  input  of  data  from  the 
keyboard 

number  of  set  deleted,  in  the  set  deletion  routine 
number  of  column  deleted,  in  the  column  deletion  routine 
first  and  last  sets  to  be  deleted  in  the  block  deletion 
routine 

used  in  the  least  squares  calculation 


UNCLASSIFIED 


UNCLASSIFIED 


^  i. 


E  -  l-dimensional  array  used  in  deleting  data  sets 

El  -  used  in  deleting  data  sets 

E4  -  used  to  identify  type  of  coordinate  on  Z-axis  (E4=0  for 

Cartesian,  E4=2  for  log) 

E$  -  string  storage  for  dashed  line  status 

F,  FI  -  used  in  the  least  squares  calculation 

F2  -  used  to  calculate  Y  from  X  (or  X  from  Y)  after  the  least 

squares  calculations 
F3  -  file  number  for  input  data 

F4  -  used  to  sort  data  sets  before  deletions 

F$  -  value  of  X  in  calculating  Y  from  X 

G,  G1  -  used  in  the  least  squares  calculation 

G2  -  used  to  calculate  Y  from  X  (or  X  from  Y)  after  least  squares 

calculations 

G$  -  value  of  Y  in  calculating  X  from  Y 

H  -  2  dimensional  array  to  hold  the  legend  and  title  data 

H(I,l)=type  of  input;  H{I,2)=H4;  H(I,3)=H3;  H(I,4)=H1; 
H(1,5)=H2 

HI  -  initial  X  position  of  legend  entry 

H2  -  initial  Y  position  of  legend  entry 

H3  -  length  of  K$  (individual  legend  entry) 

H4  -  length  of  L$  to  the  position  of  K$ 

H6  -  legend  choice  (l=no  legend,  2=new  legend,  3=old  legend) 

H7  -  counter  for  number  of  legend  entries 

H$  -  flag  for  pointer  function,  in  the  legend  and  title  routine 

(0=writing  only,  l=triangle,  2=square,  3=diamond,  4=+,  5=X, 
6=*,  7=dot,  C=correct  last,  E*end) 

I,  J,  K  -  temporary  variables,  usually  in  do-loops 
K$  -  string  input  for  legend  entry 

L  -  used  in  drawing  data  points 

L$  -  storage  for  all  K$  from  legend  routine  (dimensioned  to  700) 


UNCLASSIFIED 


UNCLASSIFIED 


M  -  l-dimensional  array  used  to  print  data  on  the  printer 

Ml  -  dimension  of  plotting  symbol  in  the  X  direction  (width) 

M2  -  dimension  of  plotting  symbol  in  the  Y  direction  (height) 

M3  -  symbol  size  multiplier 

M4  -  symbol  number  selector 

M5  -  selection  number  in  plotting  menu  (l=symbol  size,  2=output 

device,  3=symbol  type,  4=dashed  line,  5=end  selection) 

M6  -  dimension  of  plotting  symbol  in  the  Z  direction 

M7  -  used  in  drawing  X,Z  points 

M$  -  symbol  selection  variable  in  plot  routine 

N  -  one  dimensional  array  used  for  the  Y  component  data,  inthe 

dashed  line  routine 

Nl,  N2  -  used  in  the  least  squares  calculation 
N4  -  flag  indicator  for  type  of  X  axis  in  X,Z  plot  (l=Cartesian 

X,  2=  log  X) 

N5  -  dash  pattern  selection  (for  plotter  only) 

(1= _ ,  3=....) 

N8  -  dashed  line  selection  (l*no  dashed  line,  2*dashed  line  in 

X,Y  plot,  3=dashed  line  in  X,Z  plot) 

01  -  output  selection  variable  in  plot  routine 

P  -  used  in  the  least  squares  calculation 

PO  -  used  in  numbering  the  axes 

PI  -  type  of  plot  required  for  X,Y  plots  (l=Cartesian,  2=semilog 

on  X,  3= semi  log  on  Y,  4=log-log) 

P2  -  selection  for  axis  plot  (P2=l)  or  data  only  (P2=2) 

P3  -  first  set  of  data  to  be  plotted  (X,  Y  plot) 

P4  -  last  set  of  data  to  be  plotted  (X,  Y  plot) 

P5  -  exponential  multiplier  in  title  of  X  axis  of  Cartesian  plot 

(P5=0  for  all  other  types) 

P6  -  temporary  variable  for  numbering  Cartesian  axes 


UNCLASSIFIED 


UNCLASSIFIED 


exponential  multiplier  in  the  title  of  Y  axis  of  Cartesian 

plot  (P7=0  for  all  other  types) 

indicator  for  repeat  plot  1  =  initial  plot 

2  =  repeat  plot 

flag  for  Z  axis  different  type  than  Y  axis  (0=Z  same  as  Y, 
1=Z  different  from  Y) 
used  with  P5,  P7 

2-diinensional  temporary  array  used  when  adding  together  two 
sets  of  data 

number  of  first  data  file  when  adding  two  data  sets 

number  of  second  data  file  when  adding  two  data  sets 

first  set  of  data  to  be  plotted  (X,  Z  plot) 

last  set  of  data  to  be  plotted  (X,  Z  plot) 

input/output  selection  device  used  for  printing,  plotting, 

storing  on  data  tape  (l*plotter,  32=screen,  33=tape  drive, 

41=printer) 

plot  output  device  (l=plotter,  2=screen) 

one  dimensional  array  used  for  the  X  component  data,  in  the 

dashed  line  routine 

used  for  changing  data  points,  indicates  the  raw  number 

value  of  in  least  squares  calculation 

used  when  changing  data  sets 

BASIC  variable  used  in  formating  output 

number  of  data  sets 

S2=70  This  is  used  to  dimension  the  data  array,  A. 
column  number  to  be  sorted  in  the  sorting  routine 
used  when  adding  sets  of  data.  Data  is  added  after  S5. 
data  identification  string 
used  in  sorting  routine 

number  of  sets  of  data  in  second  data  file,  when  adding  two 


UNCLASSIFIED 


UNCLASSIFIED 


data  files 

T7,T8,T9  -  used  in  making  axis  tic  marks 

V  -  used  to  define  FNX,  FNY  as  Cartesian  or  logarithmic 

VI  -  number  of  columns  in  data  set 

V2  -  V2=6  This  is  used  to  dimension  the  array,  A. 

V8  -  number  of  columns  in  second  data  file,  when  adding  two  data 

files 

W  -  1-dimensional  array  used  for  Z  data  in  X,  Z  plot 

Wl,  W2  -  min  and  max  boundaries  for  Z  axis 

W3  -  range  of  Z  axis  (W2-W1)  for  Cartesian  axis,  or  number  of 

cycles  for  a  log  Z  axis 

W5  -  status  indicator  for  X,  Z  plot,  used  to  determine  when 

points  are  to  be  drawn  or  least  squares  calculations  to  be 

done  (0=before  X,Z  plot;  l=printed  X,Z  least  squares 
coefficents,  4=plotted  X,Z  points) 

W7  -  column  number  for  Z  data  points 

W9  “  indicator  for  Z  axis  in  plot  (1=Z  axis,  0=  no  Z  axis) 

W$  -  the  Z  axis  title 

X  -  1-dimensional  array  containing  X  data  for  X,  Y  or  X,  Z  plots 

XI,  X2  -  min  and  max  boundaries  for  X  axis 

X3  -  range  for  X  axis  (X2  -  XI)  for  Cartesian  axis,  or  number  of 

cycles  for  a  log  X  axis 

X6  -  used  when  moving  cursor  to  draw  points 

X7  -  the  X-column  number 

X8  -  maximum  value  within  data  set  {1E300) 

X9  -  minimum  value  within  data  set  (-1E300) 

X$  -  the  X  axis  title 

Y  -  1-dimensional  array  containing  Y  data  for  X,  Y  plot 
Yl,  Y2  -  min  and  max  boundaries  for  Y  axis 
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range  of  Y  axis  (Y2  -  Yl)  for  Cartesian  axis,  or  number  of 

cycles  for  log  Y  axis 

used  In  least  squares  calculation 

the  Y  column  number 

the  Y  axis  title 

temporary  variable 

used  in  making  axis  tic  marks 

temporary  variable  used  for  input  of  answers  to  questions 
asked  by  program  (usually  Y  or  N  responses) 
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UNCLASSIFIED  APPENDIX  IV- 1 

FILE  *  1 

1  FFM  *¥*  PLOT  A  POUTINE  FOR  PLOTTING  IN  CARTESIAN.  SEMILOG 
?  PEM  ***  AND  LOG  LOG  COORDINATES.  N-  GAUTHIER.  FEB  22.1983 

3  PEM  tt*  REUISED  MAY  '35  MDO  MAYER.  VERSION  5.1 

4  PFM  '♦T'*  DATA  ENTRY*** 

CO  TO  100 

3  PEM  ***  DATA  LIST*** 
i  I  n  T  0  104  0 

i;.'  PFM  ♦**  ADD  SETS  OF  DATA*** 

1  cn  TO  1360 

16  PFM  *♦*  ADD  columns  OF  DATA*** 

1  ■’  GO  TO  l'?60 

20  RFM  **♦  CHAfJGF  DATA*** 

:1  GO  TO  203P' 

24  PEM  ♦♦*  DELETE  DATA  SETS*** 

I'S  GO  TO  24  30 

28  PEM  ♦**  DELE  TE  'TAl  A  POI  UMNS*** 

:'S  r,ri  IQ  317'' 

3''  PEM  ***  STORP  DATA  uN  MAGTAPE*** 

3  3  GO  TO  3  45(' 

36  REM  *:**  PLOT  A^ES  AAD  DATA*** 

37  GO  TO  365'- 

40  PFM  ***  PLi'T  Data  ONLY*** 

41  P2^2 

42  PAG I 

4  3  Gft  TO  4360 

.■14  PFM  ***  DATA  SliRT  ROUTINE*** 

45  GO  TO  9800 

43  PEM  ***  COLUMN  GEMEPATEB  FROM  EXISTING  DATAM* 

49  GO  TO  10100 

S’  REM  ***  CONTINUATION  OF  COLUMN  GENER AT  I ON  4  *  * 

S3  GO  TO  10250 

S6  REM  ***  CALCULATE  Y  FROM  X. AFTER  L-S.*** 

S’  GO  TO  10840 

6G  REM  **:*  calculate  X  FROM  Y  AFTER  L.S.*** 

61  GO  TO  11 29 A 

1  PEM  *♦*  adding  two  FTLES  OF  DATA  <  SAME  NiJfiBEF  OF  COLUMNS'*** 
i:,n  tg  ii  ’SA 

68  PEM  ***  LEGEND  AND  TITLE*** 

6S  H6-? 

GO  TO  5 S 5 

■’2  PEM  ***  CON  MNUAT  TOfi  OF  PLOT  AFTER  DASHED  LINE  ROUTINE*** 

■''I  GO  TO  67  40 

"o  PEM  ***  RlE'EAf  A'LOT*** 

GO  in  12  47 0 

or,  FFM  ♦#*  INTT  lAI.  T7AT10N  OF  PmRAMETERS*** 
ion  I'fOiT 
1n:>  SET  PEY 
10^  CHGPSIZE  ? 

106  ,0f  ■  (’0 

103  X8r.::l  .OELGOO' 

110 


UNCLASSIFIED 


'  +  f  1+  +  + 


4  t  +  1  ^  t  + 


UNCLASSIFIED 


APPENDIX  IV -2 


1  I 
114 
llA 
1  IB 
1  20 
122 
124 


128 

I 

160 
j  /o 
180 
180 
200 


>  DELETE  A$.B*.C« »D$.E$.F$TGtTH^»K« 
DELETE  Mf rP$»Qf  f S*»U»  Y$  »Z* 

DIM  A$( 10) » M$ (10) .Q$ ( 10) 

E$( 20) 

B$(25) 

C$(5)  fri$(5)  .P$(5)  f2$<5) 

H$(2  > 

F$( 12) .G4( 12) 

K't  (72  )  »S$(  72) 


D 1 M 
n  I M 
DIM 
DIM 
DIM 
DIM 
DIM 

SCREEN* 
09  =  32 

*  triangle 

A*=* SQUARE • 
Et=*SET  TO 


W$(55) .X»(5 j  >  »Y$<55) 


OFF 


210 

NS=1 

'<20 

A4  =  2 

230 

A9  =  0 

2  4  0 

DELETE  H 

200 

DIM  H(30.5' 

260 

H  =  0 

2  7  0 

H6  =  1 

2  VO 

X  7  =  0 

300 

DELETE  L$ 

310 

DIM  L*(70()) 

320 

P7  =  0 

330 

P5  =  0 

3  40 

P9=  1 

ISO 

P1  =  0 

360 

U5=0 

370 

P8  =  0 

3  DO 

REM  4<K)KDATA  LNTf''Y*1<)t! 

"7  O  cr 
-  _• 

PRINT  "LlPLOr  Pr.:.<4rc'm* 

787 

PRINT  'JJ  note:  a  maximum  OF  70 

390 

PRINT  “JJDATA  ENTRY  FROM 

TAPE(l) 

4  O'  0 

INPUT  Z 

1  .1  0 

GO  TO  Z  OF  420* 780 

4  2  0 

PAGE 

4  ,V  ' 

PRINT  "IDATA  INPUT  FROM 

TARE* 

4  4  0 

PRINT 

4SD 

PRINT  'INSERT  DATA  lAPE 

NOW  GGG* 

4  A  n 

PR  IN  f 

1  ■'  0 

PRINT  •INPUT  FllE  NUMBER 

«  • 
f 

480 

INPUT  F3 

4  90 

1  IND  F3 

SOO 

ON  EOF  (0)  THEN  660 

s 2 

READ  (433:31 

S  0  4 

READ  @33:01 

SOO 

J1 0 

S'O  / 

.12  =  6 

s  1  0 

IF  SI <=70  AND  01  >6  THEN 

530 

s  '’0 

GOSUB  1008 

5  30 

'22  =  6 

DATA  SETS  AND  6  COLUMNS 
OR  KEYBOARD (2)?* 


ARE  ALLOWED' 


& 


(S-J 


fij 


U‘V.>. 


m 


1  ’.*T  • 


.V' 

o'.<v. 


.  V  *  V  ' 


C-’-'V* 


m 


\ ''  •*. 
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UNCLASSIFIFD  APPENDIX  IV-3 

^40  S2^-'^0 

delete  a 

560  'ilH  A(S2jV>2) 

57  0  A-- 0 

580  FOR  1=1  TO  SI 
580  FOR  J=1  TO  01 
AOO  READ  033*. 

610  NEXT  J 
/.  ■'  '  IF  J2<  =  6  THEN  620 
614  FOF'  J  =  1  TO  J2  01 
616  READ  033  IK 

618  NEXT  J 
-K-'lfll  6>20  NEXT  I 

62:'  IF  J1=0  THEN  630 
624  f  OR  1  =  1  TO  It  *.!- 
626  READ  033- J 
628  NEXT  I 

T+FIFIF  630  READ  @331  Si 
640  F'RINT  Si 
660  00  TO  680 


- 1 -  ,iAO  print  •input  DATA  IDENTIFICATION  ( <72  CHARACTERS)* 

670  INPUT  Si 

+  F+HT+  680  FOR  1  =  1  TO  SI 

6"^'  PRINT  !;•  •) 

T’OO  FOF  J=1  TO  01 

7.(0  PRINT  A(I*l'>*  •? 

:’20  NEXT  J 
•'.fO  PRINT 
•’40  NEXT  I 
•’50  PRINT 
■'6  0  END 

7-’0  REM  %%%  DATA  INPUT  FROM  KEYBOARD*** 

IHUM  780  PRINT  'IDATA  INPUT  FROM  KEYBOARD* 

•'90  PRINT  •JINRU'I  DATA  IDENTIFICATION  (.<72  CHARACTERS) 
80A  input  Si 

810  PRINT  'NUMBER.  OF  OAR  I  ABL.E.S8  • 

820  INPUT  01 
830  PRINT 

8  46  PRINT  'NUMBER  Of-'  SETS'?' 

850  INPUT  SI 

8'. 6  IF  SI  ;  =  70  and  01:;  =6  THEN  86v 

8  55  GOSUB  liTOS 
F+flHF  860  S2  =  70 

U  7  <■»  0  2  =  6 
880  DEEFTE  A 
89 A  DIM  A  (82*0'.'/ 

9  0  0  =  0 

910  PRINT  •INPUT  DATA  SETS’ 

°:0  DELETE  D 
930  DIM  IMUl) 

Q  4  A  Ti  =  0 


UNCLASSIFIED 


+  +  + 1  +  f  + 

+++1+++ 
+  +  +  1++  + 

+  ^4•3^■  +  + 
4-  +  4-8  +  +V 

M  1  +  M 

f  «  +  4  +  +  + 

+ ++l+i t 

+  !  -1  < 

<•  +  •*  2  +  +  + 
+f+2+f+ 


i 


UNCLASSIFirn  APPENDIX  IV-4 

'^r-O  FOR  1  =  1  TO  8  1. 

PRINT  ‘J"?!;* 

0  INPUT  II 

•^co  FOR  J  =  1  TO  U1 

Aa*j)=rnj' 

1000  NEXT 
1002  NEXT  I 

1004  PRINT  ‘ENTi  Of  HATA  INPUT  GGGC* 

1  A 0.6  end 


1000 
1. 0 1  0 
1012 
1014 
1016 
1017 
1  0  1  3 
1019 
1'  'O 
1022 
I  02  4 
1040 
1  (2v.O 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1 1 c 

1140 
1150 
1160 
1170 
1 180 
1185 
1190 

I  200 
1  2 1  0 
1220 

123  0 

124  0 
1250 
1260 
127  0 
1280 
1290 
1  300 
1310 
1320 
1330 
1340 


REh  DATA  FILE  LARGER  THAN  DATA  ARRAY 

PRINT  “JGQGGNOTE:  data  file  is  larger  than  ALLOWED!* 
PRINT  *  ONLY  70  DATA  SETS  AND  6  COLUMNS* 

PRINT  *  WILL  BE  READ  IN* 

IF  Sl<=70  THEN  1019 
11 ---SI -70 
SI  =70 
J  2  =  •/'  1 

IF  01  ■'.  =  6  THEN  1024 
0 1  =  6 
RETURN 

REM  *■**  LIST  DATA*** 

PRINT  *LIDATA  LIST* 

PRINT  ’JJ*1S$»‘JJ* 

PRINT  *LIST  ON  SCREENCl'-  OR  PR1NTER(2)?* 

INPUT  Z 

GO  TO  Z  OF  1100.1120 
09  =  32 

60  TO  1150 
Q9  =  41 

GO  TO  10320 
RRlin  0091 «L* 

FOR  1=1  TO  81 

PRINT  0091  USING  1170: I 
IMAGE  5T;'FD-9T»6 
FOR  J=1  TO  01 

IF  A(ItJ)=0  THEN  1210 
IF  ADS' All  »J)  )  =.>100000  THEN  1240 
IF  ABSlAl  I  f  .J)  ><  =  1  .OE-3  THEN  1240 
PRINT  009;  USING  1220:A(IrJ) 

IMAGE  -5D.3D>1XjS 
GO  TO  1300 

IF  ABSlAl.I  T  J)  )<1  .OE- 9  THEN  1290 
PRINT  0Q9;  USING  1270:A(lfJ) 

IF  ABS(A( I » J) )  1 .OE-9  THEN  1290 
IMAGE  3E,1XjS 
GO  TO  1300 

PRINT  009;*  -  *f 

NEXT  J 
PRINT  0Q9; 

NEXT  I 
PRINT  0091 
Q9=32 


UNCLASSIFIED 


f  +  +14  4  + 


+++2f++ 


+++24++ 


+++1 +++ 


+++!+++ 


+++1++4 

4+41444 


+++2+44 


UNCLASSIFIED 
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135 

1360 

1370 

1380 

13<?0 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1530 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 


0  END 

REH  ***  ADD  SETS  OF  DATA  »** 

PRINT  'LIADDING  SETS  OF  DATA" 

PRINT  "J'+Stf'JJ" 

IF  S2::S1  THEN  1420 

PRINT  "ARRAY  IS  FULL.  NO  MORE  SETS  CAN  BE  ADDED" 

GO  TO  1750 

PRINT  "ONLY  "fS2-Sl}"  ADDITIONAL  SETS  OF  DATA  ARE  ALLOWED" 

PRINT  "JNUMBER  OF  SETS  TO  BE  ADDED^"; 

INPUT  A1 

IF  A1  OS2-S1  THEN  1480 
PRINT  "GGGGGGGJJ" 

GO  TO  1420 

PRINT  "JINPUT  DATA  AFTER  SET  NHMBER="J 
INPUT  S5 

IF  S5<=S1  THEN  1530 

PRINT  'JSET  •fS5f’  IS  OUT  OF  RANGE  (HIGHEST  SET  ♦  IS  "  *.S1 1  "  IQGGGG" 
60  TO  1480 
S6=S5+A1+1 
IF  S5=S1  THEN  1600 
FOR  I=31+A1  TO  S6  STEP  -1 
FOR  J=1  TO  VI 

A(l. J>=A(1-A1. J) 

NEXT  J 
NEXT  I 
S1=A1+S1 
DELETE  B 
DIM  B(vn 
B  =  0 

PRINT  "JINPUT  ADDITIONAL  SETS.  EACH  WITH  "5V1+"  VARIABLES" 

FOR  1=1  TO  A1 

PRINT  •JSET*"1I+S5}"  *  *. 

INPUT  B 
FOR  J=1  TO  VI 
A4S5+I . J)=B( J) 

NEXT  J 
NEXT  I 

PRINT  "JEND  OF  DATA  ENTRY  GGGGGJ" 

Z=1 

GO  TO  1090 
END 

REM  ***ADD  COLUMNS  OF  DATA 
PRINT  "LIADD  COLUMNS  OF  DATA" 

PRINT  "JJ'+S^fJJ" 

IF  VI  02  THEN  1820 

PRINT  "ALL  THE  COLUMNS  ARE  FULL" 

00  TO  2020 

PRINT  •  ONLY  ";V2'V15"  ADDITIONAL  COLUMNS  ARE  ALLOWED" 

PRINT  "J  NUMBER  OF  COLUMNS  TO  BE  ADDED="5 
INPUT  A2 


UNCLASSIFIED 


>  / 


UNCLASSIFIED 
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+  f  U+  +  + 


+  +  +  1  +  +  + 
^f+l+++ 

M  M  +  +  + 


+  +  f  2  >  f  > 

+  +  +  1  H-  -t 

+  +  +  1  +  +  + 


18'5  0  IF  A2<  =  y2-Vl  THEN  1880 
1860  PRINT  •DQGGJ' 

1870  GO  TO  1820 
1880  DELETE  C 
1890  DIM  C(A2) 

1900  C=0 

1910  PRINT  ‘JINPUT  ADDITIONAL  COLUMNS  FOR  ’ISlf’  SETS' 

1920  FOR  1=1  TO  SI 

1930  PRINT  'J'}!*.'  •; 

1940  INPUT  C  » 

1950  FOR  J=1  TO  A2 

1960  A< 1 .01 +J)=C( J) 

1970  NEXT  J 
1980  NEXT  I 

1990  PRINT  'JEND  OF  DATA  INPUT  GGGGGJ' 

2000  yi=Vl+A2 
2>n0  GO  TO  1150 
2020  END 

2030  REM  ***  CHANGE  DATA*** 

2040  PRINT  'L' ?S* 

2050  PRINT  •  ICHANGINQ  DATA 

2060  PRINT  'JJCHAl  OE  A  SINGLE  POINT  (  1 )  OR  A  DATA  SET  ( 2 ) 1 
2070  INPUT  K 

2080  PRINT  'JTO  STOP.  PRESS  CARRIAGE  RETURN  TWICE* 

2090  PRINT  'JROU  OF  DATA  TO  BE  CHANGED®'! 

2100  INPUT  Rt 

2110  IF  Rf="  THEN  2400 

2120  Rl=VALfR»> 

2130  IF  R=2  THEN  2250 

2140  PRINT  'COLUMN  OF  DATA  POINT  TO  BE  CHANGED®* 5 
2150  INPUT  C% 

2160  IF  C*="  THEN  2400 
2170  C1=0AL (C$) 

2180  IF  Rl=;l  OR  R1<=S1  THEN  2220 
2190  IF  Cl=.l  OR  C1<=V1  THEN  2220 
2200  PRINT  "JDATA  POINT  IS  OUT  OF  RANGE* 

2210  GO  TO  2090 

2220  PRI  'JCURRENT  VALUE  OF  ( * ! R1 ! * . * ! C 1 S ' ) = * ! A ( R 1 . C 1 ) ! * .  CHANGE  TO 
2230  INPUT  A(Rl.Cl) 

2240  GO  TO  2090 

2250  IF  Rl=;l  OR  Rl<=51  THEN  2280 

2260  PRINT  *311070  POINT  IS  OUT  OF  RANGEGGGGG* 

2270  GO  TO  2090 

2280  PRINT  'JCURRENT  DATA  SET  *?Rlf*  ISl* 

2290  FOR  1=1  TO  VI 
2300  PRINT  A'Pl.Di 
2310  NEXT  1 
2320  PRINT 

2330  PRINT  'JINPUT  VALUES  FOR  ALL  'JVIJ*  COLUMNS'.  J* 

2340  FOR  I-l  TO  VI 


UNCLASSIFIED 


+  ffD  +  i  }■ 


+  t-  +  if+  + 


f  +  + 1  +  +  + 


+  +  +  24  +  + 


+  +  +  1+  +  + 


+  +  +  2H  + 
+  +  +  2  +  +  + 


2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2  490 


2560 
2570 
2572 
2574 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2  790 
2800 
2810 
2820 
2830 
2840 


UNCLASSIFIED 


PRINT  ’COLUMN  ♦*  U*  *  ’  » 
INPUT  R3 
A(Rlf I)=R3 
NEXT  I 
60  TO  2090 
PRINT 

GO  TO  1150 
END 

REM  **»  DELETING  DATA  SETS*«» 
PRINT  ’LIDELETING  DATA  SETS* 
PRINT  'JJ’JStfJJ* 

DELETE  E 
DIM  E(S1) 

E  =  0 
E1=0 

IF  S1>0  THEN  2550 
PRINT  ’ARRAY  IS  EMPTY* 

END 

PRINT  ’JA  CARRIAGE  RETURN  WITV 
PRINT  ’JJIF  A  WRONG  NUMBER  IS 
PRINT  *  DELETION* 

PRINT  *JDELETING  A  SINGLE  SET 
INPUT  K 
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N;--v 

•'  A  .  j 


•i  S  •’% 

p  V 


0  THEN  2550 
’ARRAY  IS  EMPTY* 

’JA  CARRIAGE  RETURN  WITH  NO  SET  NUMBER  STOPS  INPUT  ’ 
•JJIF  A  WRONG  NUMBER  IS  INPUT.  USE  BREAK  KEY.  THEN  all’ 
*  DELETIONS  ENTERED  WILL  BF  CANCELLED* 

*JDELETING  A  SINGLE  SET  (1>  OR  A  BLOCK  OF  DATA  (2)?*f 


r 


IF  K=2  THEN  2740 

PRINT  ’JNUMBER  OF  SET  TO  BE  DELETED=’'. 
INPUT  Df 

IF  D$=’*  THEN  2960 
D1=UAL(D$) 

IF  D1=>1  AND  D1  =S1  THEN  2660 

PRINT  "JSET  NUMBER  IS  OUT  OF  RANGEQGGGG* 

GO  TO  2590 

PRINT  ’SET  DELETED  =  *  .' 

FOR  J=1  TO  VI 
PRINT  A(D1»J)S 
NEXT  J 
PRINT 
E1=E1+1 
E(E1 )=Dt 
GO  TO  2590 

PRINT  'JJDELETION  OF  A  BLOCK  OF  DATA’ 

PRINT  ’JINPUT  THE  FIRST  SET  OF  THE  BLOCK;* 
INPUT  D$ 

IF  D»=”  THEN  2960 
D3=VAL(D*) 

IF  D3  1  OR  D3  SI  THEN  2850 

PRINT  •  INPUT  THE  LAST  SET  OF  THE  BLOCK;*? 
INPUT  D4 

IF  D4<1  OR  D4:Sl  THEN  2850 
IF  D4-:D3  THEN  2870 
GO  TO  2900 


UNCLASSIFIED 


N  ."-V- 

■i'.NL'V 


UNCLASSIFIED 
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+  V  +  2  n-  f 
+  +  -t  n  +  4 
+  +414-1  + 

44+2+4+ 

4  +4  1+  +  + 


4  ++1  +  +  + 


4  4  +  1  +  +  + 

4+4 1+++ 

4+  +  1++  I 

+  +  +  1+  +  + 


2850  PRINT  'JGQGGBLOCK  IS  OUT  OF  RANGE* 

2860  60  TO  2750 

2870  PRINT  ‘JOGGC  LAST  SET  ♦  MUST  BE  HIGHER  THAN  FIRST  SET  ♦* 

2880  GO  TO  2750 
2900  FOR  I=ti3  TO  DA 
2910  E1=E1+1 

2920  E(E1)=I 

2930  NEXT  I 

2940  PRINT  'SET  NUMBERS  •fD3f*  TO  •;D44*  DELETED* 

2950  GO  TO  2740 

2960  REM  ***  SORTING  THE  SETS  TO  BE  DELETED^-  THEN  RENUMBERING  ARRAY»»# 
2970  F4=0 

2980  FOR  1=1  TO  El 

2990  IF  E(I)=  E(I+1)  THEN  3040 

3000  F4=l 

3010  Tl=E(n 

3020  E(Il=E(I+l) 

3030  E(I+1)=T1 

3040  NEXT  I 

3050  IF  F4=l  THEN  2970 
3060  FOR  1=1  TO  El 
3070  FOR  J=E(I)+1  TO  SI 
3080  FOR  K=1  TO  01 

3090  A( J-1 iK)=A( JfK) 

3100  NEXT  R 

3110  NEXT  J 
3120  S1=S1-1 

3130  NEXT  I 
3140  PRINT 

3150  PRINT  'LIST  OF  REMAINING  DATA! * 

3160  GO  TO  1100 

3170  REM  ***  DELETE  DATA  COLUMNS*^* 

3180  PRINl  ‘LIDELEriNG  DATA  COLUMNS* 

3190  PRINT  * JJ*  * JJ* 

3200  IF  V1>0  THEN  3230 
3210  PRINT  'ARRAY  IS  EMPTY* 

3220  GO  TO  3430 

3230  PRINT  'JNUMBER  OF  COLUMN  TO  BE  DELETED=*; 

3240  INPUT  D$ 

3250  IF  D$=**  THEN  3440 
3260  D2=VAL(D») 

3270  IF  D2=;l  AND  D2<=V1  THEN  3300 

3280  PRINT  'JGGGGCOLUMN  NUMBER  IS  OUT  OF  RANGE* 

3290  GO  TO  3200 

3300  PRINT  ‘JCOLUMN  DELETED=* 

3310  FOR  1=1  TO  31 
3320  PRINT  *I'»A(IfD2) 

3330  NEXT  I 

3340  IF  D2  =  ';i  THEN  3400 
3350  FOR  J=D2+1  TO  VI 


UNCLASSIFIED 


iii 


+  +  +14-  +  I 

+++1+++ 

+++1+++ 

+++1+++ 


+++2+++ 

++f 1+++ 
f++2f++ 

+++1+++ 

+  +  +  !*  +  )• 


...  jfjin  'ii.y  w  'A'i . 
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3360  FOR  K=1  TO  SI 
3370  A(K. J-1)=A<K, J> 

3380  NEXT  K 
3390  NEXT  J 
3400  V1=V1-1 
3410  Z=1 

3420  PRINT  ‘JREMAINING  DATA  tJ' 

3430  GO  TO  1090 
3440  END 

3450  REM  ***  STORE  DATA  ON  MAG  TAPE  *t* 

3460  PRINT  ’L  STORING  DATA  ON  TAPE* 

3470  PRINT  ■ jj* ;s$; ■ JJ* 

3480  J=<  l+SlKtVl  )Jt:10 

3490  PRINT  'JFILE  MUST  HAVE  A  MINIMUM  OF  Jt*  BYTES  FOR  THIS  DATA* 
3500  PRINT  'JJINSERT  DATA  TAPE  NOU  QGG* 

3510  PRINT 

3520  PRINT  *NUMBER  OF  FILE  FOR  ST0RA6E=*» 

3530  INPUT  Z 

3540  FIND  Z 

3550  URITE  e33JSl»Vl 

3560  FOR  1=1  TO  SI 

3570  FOR  J=1  TO  VI 

3580  URITE  033;A<IfJ) 

3590  NEXT  J 
3600  NEXT  I 
3610  URITE  033;S» 

3620  CLOSE 

3630  PRINT  'OPERATION  COMPLETE?  REMOVE  DATA  TAPE»  INSERT  PROGRAM  TAPE 
3640  END 

3650  REM  ***  PLOTTING  AXES  AND  DATA  »»» 

3660  PRINT  'LIPLOTTING  ROUTINE* 

3670  PRINT  * JJ* ;S*J ' JJ* 

3680  P9=1 

3690  PRINT  'JDO  YOU  REQUIRE  2  SEPARATE  Y  AXES'?  (Y  OR  N);*J 

3700  INPUT  I'i 

3710  IF  Z*='N'  THEN  3750 

3720  U9=l 

3730  PRINT  'THE  SECOND  Y  AXIS  WILL  BE  CALLED  THE  Z  AXIS* 

3740  GO  TO  3760 
3750  W9=0 

3760  PRINT  'JJFNTER  THE  X  COLUMN  NUMBER* 

3770  INPUT  X7 

3780  IF  X7<  1  OR  X7:  VI  THEN  3760 
3790  PRINT  'ENTER  THE  Y  COLUMN  NUMBER* 

3800  INPUT  Y7 

3810  IF  Y7<1  OR  Y7>V1  THEN  3790 
3820  IF  U9=0  THEN  3860 

3830  PRINT  'ENTER  THE  Z  COLUMN  NUMBER* 

3840  INPUT  W7 

3350  IF  W7<1  OR  U7>V1  THEN  3830 


UNCLASSIFIED 


+++1+++ 


+++1+++ 

+++1+++ 

+++1+++ 
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+++3f++ 
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3860  PRINT  ■!  PLOT  TYPE  SELECTION' 

3870  PRINT  'JJl,  CARTESIAN  COORDINATES' 

3880  PRINT  'J  2.  SEMILOG  (LOG  ALONG  X)' 

3890  PRINT  'J  3.  SEMILOG  (LOG  ALONG  Y)' 

3900  PRINT  'J  4.  LOG-LOG* 

3910  PRINT  'JJINDICATE  THE  TYPE  OF  X»Y  PLOT  NEEDED}'*. 

3920  INPUT  PI 

3930  IF  W9=0  THEN  4060 

3940  IF  Pl>2  THEN  3980 

3950  B»='CARTESIAN  COORDINATES' 

3960  E4=0 

3970  GO  TO  4000 

3980  B»='LOG  COORDINATES' 

3990  E4=2 

4000  PRINT  'J';B4*.  '  FOR  Z  AXIS  (SAME  AS  Y  AXIS)?  Y  OR  N  *.  '  } 

4010  INPUT  Zi 

4020  IF  Z4='Y'  THEN  4050 

4030  P8=l 

4040  GO  TO  4060 

4050  P8=0 

4060  DELETE  X 

4070  DELETE  Y 

4080  DIM  X(S1> 

4090  DIM  Y(S1) 

4100  X*0 
4110  Y=0 

4120  IF  W9=0  THEN  4160 
4130  DELETE  U 
4140  DIM  W<S1  ) 

4150  W*0 

4160  60SUB  PI  OF  7510.7780.8190.8740 


4170 

IF  U9=0  THEN 

4190 

4180 

IF  P8=l  THEN 

14130 

4190 

PRINT  'L  DRAW 

1  AXES 

AND 

DATA( 1 ) 

OR  DATA  0NLY(2)?* 

4200 

INPUT  P2 

4210 

GO  TO  4230 

4220 

P2  =  l 

4230 

IF  P2=2  THEN 

4305 

4240 

PRINT  'INPUT 

TITLE 

FOR 

X 

AXIS* 

4250 

INPUT  X$ 

4260 

PRINT  'INPUT 

TITLE 

FOR 

Y 

AXIS 

(ALONG 

LEFT  SIDE)* 

4270 

INPUT  Y$ 

4280 

IF  W9=0  THEN 

4360 

4290 

PRINT  'INPUT 

TITLE 

FOR 

Z 

AXIS 

(ALONG 

RIGHT  SIDE) 

4300 

INPUT  W* 

4305 

IF  W9=0  THEN 

4360 

4310  PRINT  'FOR  X.Y  PLOT  ENTER  FIRST  AND  LAST  SETS  TO  BE  PLOTTED} 
4320  INPUT  P3.P4 

4330  PRINT  'JFOR  X.Z  PLOT  ENTER  FIRST  AND  LAST  SETS  TO  BE  PLOTTED 
4340  INPUT  03.04 


UNCLASSIFIED 


UNCLASSIFIED 
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+++1+++ 

+++1+++ 

+++1+++ 

+++1+++ 


+  f  +  2  +  +  + 

+++l+t+ 


4350  GO  TO  4390 
4360  IF  W9=l  THEN  4310 

4370  PRINT  ’ENTER  NUMBER  OF  FIRST  AND  LAST  SETS  TO  BE  PLOTTED 

4380  INPUT  P3.P4 

4390  REM  LEGEND  AND  TITLE 

4400  PRINT  ’LIl-EGENDS  AND  TITLES* 

4410  PRINT  ’LEGEND  CHOICES:* 

4420  PRINT  ’  1.  NO  LEGEND* 

4430  PRINT  ’  2.  NEU  LEGEND* 

4440  PRINT  ’  3.  OLD  LEGEND* 

4450  INPUT  H6 

4460  REM*»*  GOTO  SELECTION  MENU  FOR  SYMBOL  TYPE  ETC.*** 

4470  GOSUB  6720 

4480  REM  ***  AXES  PLOT*** 

4490  PRINT  ’L’JS* 

4500  VIEWPORT  20f85.33»98 
4510  WINDOW  Xl»X2fYl.Y2 
4520  IF  09=32  THEN  4550 
4530  VIEWPORT  17»82f50fll5 
4540  WINDOW  Xl»X2»YlfY2 
4550  W5=0 

4560  IF  P2=2  THEN  4800 
4570  MOVE  eQ9:XlfYl 
4580  T9=Y3/100 
4590  T8=0 
4600  T7=X3 

4610  GOSUB  PI  OF  6320 » 5580 f 6320 » 5580 
4620  MOVE  0Q9:XlfY2 
4630  T9=-T9 

4640  GOSUB  PI  OF  6320 f 5580 » 6320 » 5580 
4650  MOVE  0Q9:X1»Y1 
4660  T7=Y3 
4670  T9=X3/100 

4680  GOSUB  PI  OF  6410 f6410r5700f 5700 
4690  IF  W9=l  THEN  12590 
4700  T9=-T9 
4710  MOVE  0Q9:X2»Y1 

4720  GOSUB  PI  OF  64 1 0 » 64 10 r 5700 f 5700 
4730  MOVE  0O9:X1»Y1 
4740  P0=X1 

4750  GOSUB  PI  OF  6500 » 5820 . 6500 »5820 
4760  T9=X1 
4770  P0=Y1 

4780  GOSUB  PI  OF  6610 i6610.5890»5890 
4790  GOSUB  5990 

4800  REM  ***  DRAWING  POINTS  FOR  X»Y  PLOT  *** 

4810  IF  P3=0  OR  P4=0  THEN  5520 
4820  FOR  I=P3  TO  P4 
4830  X6=X(I) 

4840  IF  X(I)>X3  OR  X(I><X9  THEN  4900 


UNCLASSIFIED 


UMCLASSIFIED 
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4850  L=Y(I) 


4860 

81=0 

4870 

MOVE  e09:X6fL 

4880 

REM  **»  DRAW  POINT  USING  CHOSEN  SYMBOL*** 

4890 

GOSUB  9360 

+++1+++ 

4900 

NEXT  I 

4910 

REM  ***  CALCULATION  OF  LEAST  SQUARES*** 

4920 

IF  P3=0  OR  P4=0  THEN  5470 

4930 

P  =  0 

4940 

G=0 

4950 

F  =  0 

4960 

F1=0 

4970 

N1=0 

4980 

FOR  I=P3  TO  P4 

4990 

X6=X(I> 

5000 

IF  X(I)<X9  OR  X<I)>X8  THEN  5090 

5010 

Y6  =  Y ( I ) 

5020 

P=P+X6*Y6 

5030 

G=G+Y6 

5040 

F=F+X6 

5050 

F1=F1  +  X6''2 

5060 

N1=N1+1 

5070 

G1=G1  +  Y6''2 

5080 

HOME 

+++1  +  +-+ 

5090 

NEXT  I 

+  +  +  1  +  +  4- 

5100 

IF  N1>1  THEN  5130 

5110 

PRINT  ‘NO  DATA  IN  CURRENT  SELECTION* 

5120 

END 

+++!+++ 

5130 

IF  N1*F1-F''2<>0  THEN  5170 

5140 

HOME  0Q9: 

5150 

PRINT  USING  •32**J**IX**REGRESSI0N  LINE  IS  VERTICAL 

3160 

END 

+++1+++ 

5170 

B1  =  (N1*P-G*F)/(N1*F1-F''2) 

5180 

A3=(G-B1*F)/N1 

5190 

D6  =  X1 

5200 

D7  =  X2 

5210 

N2=1/N1 

5220 

R2=(A3*G  +  B1*P-N2*G''2)/(G1-N2*G''2) 

5230 

REM  ***DRAU  G(Y)=A3+B1*F(X) 

5240 

PRINT  ’J  * 

5250 

PRINT  'JPEOT  THE  BEST  STRAIGHT  LINE  AND  PRINT  R''2  ( 

5260 

PRINT  *  PRINT  R''2  ONLY  (2)  OR  NEITHER  O)*?*} 

5270 

INPUT  Z 

5280 

GO  TO  Z  OF  5290»5310r5470 

+  +  +  1  +  +  + 

5290 

MOVE  0Q9;ii6f  A3  +  D6*B1 

5300 

DRAW  @09:D7,A3FD7*B1 

+  +  +  1  +  +  + 

5310 

HOME 

5320 

PRINT  ’JJJJJ* 

5330 

IF  U5=4  THEN  13900 

5340 

GO  TO  PI  OF  5350f5380»5410»5440 

.‘A 


UNCLASSIFIED 


UNCLASSIFIED 
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+++!+++  5350  PRINT  USING  5360}A3»B1 

5360  IMAGE  * Y = * . + AE t X . +4E » * »  X' 

5370  GO  TO  5460 

»■  +  +  !  +  +  +  5380  PRINT  USING  5390JA3»tll 

5390  IMAGE  ' Y  =  • » +4E » X t +4E f *  *  LOG  X* 

5400  60  TO  5460 

+++1+++  5410  PRINT  USING  5420JA3.B1 

5420  IMAGE  'LOG  Y= * » +4E t X » +4E t *  *  X* 

5430  GO  TO  5460 

1++1+++  5440  PRINT  USING  5450:A3»B1 

5450  IMAGE  ‘LOG  Y= * t +4E f X f +4E f • t  LOG  X* 

f  +  +  3  +  +  +  5460  PRINT  'COEF  OF  DETERMINATION  (R''2)  *=  *  »R2 

+++2+++  5470  IF  U9=0  THEN  5500 
5480  IF  W5=0  THEN  13530 
5490  DO  TO  14050 

+++11++  5500  B4=B1 

5510  A6=A3 

+  +  +  2  +  +  +  5520  REM  *)KDASHED  LINE  ROUTINE*** 

5530  IF  N8=l  THEN  5550 
5540  GOSUB  14820 

+++2+++  5550  REM  ***PRINTING  LEGEND  AND  TITLE  *** 

5560  GOSUB  H6  OF  5570 » 15490 . 16380 


.■-.Ay 


•  •  -  fc  *J 


7l>  V  ' 
* 


'■V-W 

Si 


---4---  5580 

REM  «««  DRAW  LOG  TICK  MARKS  AND  X  AXIS*** 

•  •  •  kV  . 

%  .  •  V  • 

•  \ 

5590 

FOR  1=1  TO  T7 

;■ 

5600 

Z8  =  0 

5610 

FOR  J=2  TO  10 

5620 

Z9=LGT( J) 

1 

5630 

RDRAU  ea95Z9-28»T8 

5640 

RDRAM  0Q9;T8.T9 

5650 

RDRAM  eQ9{T8»-T9 

*  •  •  * ' 

5660 

Z8  =  Z9 

*  •  •  w  • 

5670 

NEXT  J 

5680 

NEXT  I 

- 

L- 

7 

5690 

RETURN 

UMCLASSIFIED 
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+  +  +  2  +  +  + 


+++1+++ 


+++2f++ 


5790  NEXT  J 
5800  NEXT  I 
5810  RETURN 


5820  REM  NUMBERING  THE  X  AXIS*** 

5830  FOR  1=1  TO  X3+1 

5840  PRINT  0091 ‘JJHIOK* 1P0» 

5850  MOVE  @Q9:Xl+IfYl 
5860  P0=P0+1 

5870  NEXT  I 
5880  RETURN 


5890  REM  ***NUMBERING  THE  Y  AXIS*** 

5900  FOR  1=0  TO  Y3 

5910  MOVE  0Q9;T9.Y1+I 

5920  PRINT  0Q9:*UUUUHlOK*»POf 

5930  P0=P0+1 

5940  NEXT  I 

5950  RETURN 

5960  F4=0 

5970  FOR  1=1  TO  Sl-1 

5980  IF  Ad  »S4)=>A(  I  +  l  fS4)  THEN  9970 


5990  REM  ***  PRINTING  X  TITLE*** 

6000  CHARSI7.E  3 

6010  MOVE  @Q9JX1+X3/2»Y1 

6020  IF  P9=0  THEN  6070 

6030  IF  P7=0  THEN  6070 

6040  Pt=STR(P7) 

6050  X$  =  X*i'  *10li* 

6060  X$=X$SP* 

6070  FOR  J=1  TO  LEN(X$)/2 

6080  PRINT  8091 ’H*} 

6090  NEXT  J 

6100  PRINT  @09; ■ JJJJJ* IX* 

6110  MOVE  @a9;Xl »Yl+Y3/2 
6120  REM  ***  Y  TITLE  *»* 

6130  IF  Pl=3  OR  Pl=4  THEN  6160 

6160  PRINT  009; "HUdHUUdU' f 

6170  SET  DEGREES 

6180  PRINT  009, 25190 

6190  IF  P9=0  THEN  6240 

6200  IF  P5=0  THEN  6240 

6210  P*=STR(P5) 

6220  Y*  =  Y*i'  *10;si* 

6230  Y*=Y*iP$ 

6240  FOR  J=1  TO  LEN(Y$)/2 


UNCLASSIFIED 


UNCLASSIFIED 
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6250 

PRINT  009: 'H') 

6260 

NEXT  J 

6270 

PRINT  0O9:Y$ 

6280 

PRINT  0Q9»25:O 

6290 

IF  W9=l  THEN  13130 

6300 

CHARSIZE  2 

6310 

RETURN 

- 4 -  6320  REH  *»*DRAU  CARTESIAN  TICK  HARKS  AND  X  AXIS*** 

6330  Z8=0 

6340  Z9=<X2-X1 )/10 


6350  FOR  J=1  TO  10 

6360  RDRAW  @Q9;Z9.T8 

6370  RDRAW  eQ9}T8*T9 

6380  RDRAW  809JT8f-T9 

6390  NEXT  J 
6400  RETURN 


- 4 - 


6410  REH  *««  DRAW  CARTESIAN  TICK  HARKS  AND  Y  AXIS*** 

6420  Z8=0 

6430  Z9=<Y2-Y1 )/10 

6440  FOR  J=1  TO  10 

6450  RDRAW  0Q9U8fZ9 

6460  RDRAW  @Q9:T9.T8 

6470  RDRAW  @Q9t-T9.T8 

6480  NEXT  J 

6490  RETURN 


- 2 -  6500  REH  ***  NUHBER  X  AXIS  (CARTESIAN)*** 

6510  Z9=(X2-Xl)/5 

6520  P7=INT(LGT(ABS(X1)+ADS(Z9) )+l .OE-8) 


6530  FOR  1=1  TO  6 
6540  P6  =  P0/10''F'7 


6550  PRINT  0Q9?*JJUUb*; 

6560  PRINT  009:  USING  •-2D.2D*:P6 

6570  P0  =  XHZ9*I 

6580  HOVE  0Q9:POfYl 

6590  NEXT  I 

6600  RETURN 


4  •  *  •  mj 


6610  REH  ***  NUHBER  Y  AXIS  (CARTESIAN)*** 
6620  Z9=(Y2-Yl)/5 

6630  P5=INT<LGT( ABS(Y1 )tABS(Z9) )+l .OE-8) 
6640  FOR  1=1  TO  6 
6650  HOVE  0O9:T9*PO 

6660  P6  =  P0/'10''P5 


UNCLASSIFIED 
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6670  PRINT  809: •UUUUUUU* 5 

6680  PRINT  809:  USING  •-2D.2D*:P6 

6690  P0=Y1+Z9»I 

6700  NEXT  I 
6710  RETURN 


—  1  — 

6720 

REH  »**  SELECTION  MENU  ROUTINE  *t* 

6730 

M3  =  l 

+++16++ 

6740 

HOME 

6750 

PAGE 

6760 

IF  H602  THEN  6780 

6770 

09  =  32 

+++1+++ 

6780 

IF  09=1  THEN  6810 

6790 

Q*='SCREEN* 

6800 

GO  TO  6820 

+++1+++ 

6810 

0$=*PL0TTER* 

+++1+++ 

6820 

PRINT  *1  SELECTION  MENU* 

6830 

PRINT  *1.  ALTER  SYMBOL  SIZE  (SET  TO  *1 

M3)*  NOW)* 

6840 

PRINT  *2.  SELECT  OUTPUT  DEVICE  (SET  TO 

*)Q*)*  NOW)* 

6850 

IF  W9=0  THEN  6890 

6860 

PRINT  *3.  SELECT  SYMBOL  (SET  TO  'IMtl* 

FOR  XrY  POINTS) 

6870 

PRINT  •  (SET  TO  'JAil* 

FOR  XfZ  POINTS) 

6880 

GO  TO  6900 

+++1+++ 

6890 

PRINT  *3.  SELECT  SYMBOL  (SET  TO  'IMil* 

NOW)  * 

+  +  +  1  +  +  + 

6900 

PRINT  *4.  DASHED  LINE  CURVE  (*>£*»•  NOW)* 

1 

6910 

PRINT 

6920 

PRINT  *5.  END  SELECTION* 

6930 

PRINT 

6940 

PRINT  'ENTER  SELECTION  NUMBER! *J 

6950 

INPUT  M5 

1 

6960 

IF  M5<1  OR  M5>5  THEN  6740 

1 

1 

6970 

PAGE 

6990 

HOME 

6990 

GO  TO  M5  OF  7000»7070»7210»14530.7480 

+++1+++ 

7000 

REM  **»ALTER  SYMBOL  SIZE*** 

7010 

PRINT  'ENTER  SYMBOL  SIZE  MULTIPLIER!*) 

7020 

INPUT  M3 

7030 

IF  M3=0  THEN  6740 

7040 

M1=M1*M3 

7050 

M2=M2*M3 

7060 

GO  TO  6740 

+++1+++ 

7070 

REM***  OUTPUT  DEVICE  *** 

7080 

PRINT  *1. SCREEN* 

7090 

PRINT  *2. PLOTTER* 

7100 

PRINT 

7110 

PRINT  'ENTER  OUTPUT  DEVICE  SELECTION!' 

F 

7120 

INPUT  01 

7130 

IF  01<1  OR  01>2  THEN  6740 

7140 

IF  01=1  THEN  7180 

UNCLASSIFIED 


UNCLASSIFIED 
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7150 

09  =  1 

7160 

Q*=*PLOTTER‘ 

■’170 

GO  TO  6740 

+++1+++ 

7180 

09  =  32 

7190 

Oi=*SCREEN‘ 

7200 

GO  TO  6740 

1++1+++ 

7210 

REH  «**  SYMBOL  SELECTION  «** 

7220 

PRINT  'Jl.  TRIANGLE* 

7230 

PRINT  •  2.  SQUARE* 

7240 

PRINT  *  3,  DIAMOND* 

7250 

PRINT  •  4,'+'* 

7260 

PRINT  ■  S.'X'* 

7270 

PRINT  •  6.'*'* 

7280 

PRINT  *  7. POINT* 

7290 

IF  U9=l  THEN  13330 

7300 

PRINT  'J  ENTER  SYMBOL  NUMBER!* J 

+++1+++ 

7310 

INPUT  M4 

7320 

IF  M4<:i  OR  M4>7  THEN  6740 

7330 

GO  TO  M4  OF  7340. 7360.7380. 7400. 7420. 7440. 7460 

+++1+++ 

7340 

M*=*TRIANGLE* 

7350 

GO  TO  6740 

+F+1+++ 

7360 

M$=*SQUARE* 

•’370 

GO  TO  6740 

+++1+++ 

7380 

M$=* DIAMOND* 

7390 

GO  TO  6740 

+++1+++ 

7400 

M*=*  M  '  • 

7410 

GO  TO  6740 

++F1+++ 

7420 

M*=* 'X' • 

7430 

GO  TO  6740 

+++!+++ 

7440 

M*=* • 

7450 

GO  TO  6740 

+++1+++ 

7460 

M$=*POINT' 

7470 

GO  TO  6740 

+++1+++ 

7480 

IF  N8 >1  THEN  4480 

7490 

RETURN 

7500 

REM  ***END  OF  SELECTION  MENU*** 

+++2+++ 


7510  REh***  CARTESIAN  COORDINATES*** 

7520  FOR  1=1  TO  SI 

7530  X<I>=A(IfX7) 

7540  Y(I)=A(I»Y7) 

7550  NEXT  I 

7560  IF  U9=0  THEN  7610 

7570  IF  P8=l  THEN  7610 

7580  FOR  1=1  TO  SI 

7590  W(I)=A(1»W7) 

7600  NEXT  I 

7610  PRINT  'JINPUT  BOUNDARIES  FOR  X  (MINtMAX)*.*! 
7620  INPUT  XI. X2 


UNCLASSIFIED 


UNCLASSIFIED 
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+++2+++ 


- 1 - 

+++1+++ 

4-  +  +1  +  +  + 

+++1+4+ 

+++3+++ 

+++1+++ 

^++2+4+ 


7630  PRINT  ’JINPUT  BOUNDARIES  FOR  Y  <HIN»MAX>:*J 
7640  INPUT  YlfY2 

7650  IF  U9=0  THEN  7710 

7660  IF  P8=1  THEN  7710 

7670  PRINT  'JINPUT  BOUNDARIES  FOR  Z  <MIN»HAX);'» 

7680  INPUT  W1»W2 

7690  W3=U2-U1 

7700  DEF  FNU(V)=V 

7710  H2=(Y2-Y1 )/100 

7720  M1=<X2-X1 )/100 

7730  X3=X2-X1 

7740  Y3=Y2-Y1 

7750  DEF  FNX(0)=U 

7760  DEF  FNY<V)=V 

7770  RETURN 


7780  REM  ***  SEMILOG  ON  X  AXIS*** 

7790  1=1 

7800  IF  I=S141  THEN  7870 
7810  IF  A(I»X7)=0  THEN  7840 

7820  1=141 

7830  GO  TO  7800 

7840  PRINT  'GGGQGERRORt  A  ZERO  VALUE  HAS  BEEN  FOUND  IN  THE  X 

7850  PRINT  'IT  MUST  BE  REMOVED  BEFORE  A  LOG  PLOT  CAN  BE  MADE' 

7860  GO  TO  1100 

7870  FOR  1=1  TO  SI 

7880  X(I)=LGT<A(I.X7)) 

7890  Y(I)=A<IjY7) 

7900  NEXT  I 

7910  IF  W9=0  THEN  7960 

7920  IF  P8=l  THEN  7960 

7930  FOR  1=1  TO  SI 

7940  U(I)=A(IfW7) 

7950  NEXT  I 

7960  PRINT  'JINPUT  MINIMUM  BOUNDARY  FOR  X  AND  NO.  OF  CYCLES:' 

7970  INPUT  XI. X3 

7980  IF  Xl;0  THEN  8010 

7990  PRINT  'GGJIMINIMUM  X  MUST  BE  GREATER  THAN  ZEROJ' 

8000  GO  TO  7960 

8010  Xl=X141.0E-3 

8020  PRINT  'JINPUT  BOUNDARIES  FOR  Y » ( MI N . MAX ) : ' J 

8030  INPUT  Y1.Y2 

8040  IF  U9=0  THEN  8100 

8050  IF  P8=l  THEN  8100 

8060  PRINT  "JINPUT  BOUNDARIES  FOR  Z  .  ( MI  N  .  MAX  )  *. '  t 

3070  INPUT  W1.W2 

0080  U3=U2-W1 

8090  DEF  FNW{V)=V 

8100  Y3=Y2-Y1 


DATA 


UNCLASSIFIED 
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ai  10 

X1  =  1NT<LGT<X1  )  ) 

8120 

X2=X1+X3 

8110 

Ml=X3/100 

8140 

M2=<  Y2-Y1 )/100 

8150 

DEF  FNX(V)=LGT<V) 

8160 

P7  =  0 

8170 

DEF  FNY(0)=V 

8180 

RETURN 

- 1 - 

8190 

REM  **»  SEMILOG  ON  Y  AXIS 

««* 

8200 

1  =  1 

F++1+++ 

8210 

IF  I=S1+1  THEN  8280 

8220 

IF  A(I.Y7)=0  THFN  8250 

8230 

I  =  I  fl 

8240 

GO  TO  8210 

+  +  +1  +  +  4- 

8250 

PRINT  'GGGGGERROR;  a  ZERO 

VALUE  HAS  BEEN  FOUND  IN  THE  Y 

8260 

PRINT  'IT  MUST  BE  REMOVED 

BEFORE  A  LOG  PLOT  CAN  BE  MADE* 

8270 

GO  TO  1100 

+++1+++ 

8280 

FOR  1=1  TO  SI 

8290 

Xa)=A<I»X7) 

8300 

Y(1)=LGT(A(I»Y7)) 

8310 

NEXT  I 

8120 

IF  W9=0  THEN  8450 

8330 

IF  P8=l  THEN  8450 

3340 

1  =  1 

+++1+++ 

3150 

IF  I=S1+1  THEN  8420 

8360 

IF  A(IfW7>=0  THEN  8390 

8370 

1  =  1  +  1 

8380 

GO  TO  8350 

+  +  +  1+  +  + 

8390 

PRINT  'GGOGGERRORJ  A  ZERO 

VALUE  HAS  BEEN  FOUND  IN  THE  Z 

3400 

PRINT  ‘IT  MUST  BE  REMOVED 

BEFORE  A  LOG  PLOT  CAN  BE  MADE* 

8410 

GO  TO  1100 

+ 1+1+++ 

8420 

FOR  1=1  TO  SI 

8430 

U(I)=LGT(A(I»U7) ) 

8440 

NEXT  I 

+  +  +  2  +  1  1 

8450 

PRINT  'JINPUT  BOUNDARIES  FOR  X  AXI S » ( MIN » MAX ) t * » 

3460 

INPUT  XI. X2 

++F1I++ 

8470 

PRINT  ‘JINPUT  MINIMUM  BOUNDARY  FOR  Y  AND  NO.  OF  CYCLES:* 

8480 

INPUT  Y1.Y3 

8490 

IF  Y1>0  THEN  8520 

8500 

PRINT  'GGIJ  MINIMUM  Y  MUST 

BE  GREATER  THAN  ZEROJ* 

8510 

60  TO  8470 

+++1+++ 

8520 

Y1=Y1+1 .OE-3 

9530 

X3=X2 -XI 

8540 

Y1=INT(LGT<Y1) ) 

8550 

Y2=Y1+Y3 

8560 

M2=Y3/100 

8570 

M1=<X2-X1)/100 

3580 

DEF  FNX(U)=V 

DATA 


DATA 


UNCLASSIFIED 


UNCLASSIFIED 
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+++1+++ 

+++1+++ 

+++2+++ 

- 1 - 

+++1+++ 

+++2F++ 

+++1+++ 

+++1+++ 

4++1+++ 

+++1+++ 

+++3+++ 

f++l f+f 


8590 

B600 

3610 

8620 

3630 

8640 

8650 

8660 

8670 

8680 

8690 

8700 

8710 

3720 

3730 


8740 

8750 

8760 

8770 

8780 

8790 

8800 

8310 

3820 

8830 

3840 

8850 

8860 

3870 

8880 

3885 

3890 

8900 

8910 

3920 

8930 

3940 

8950 

8960 

8970 

8980 

8990 

9000 

9010 

9020 

9030 

9040 

9050 


DEF  FNV(01=LGT(V) 

P5  =  0 

IF  U9=0  THEN  8730 
IF  F-8=l  THEN  8730 

PRINT  "JINPUT  HINIMUH  BOUNDARY  FOR  Z  AND  NO,  OF  CYCLES: *; 
INPUT  U1,W3 
A9  =  0 

IF  U1>0  THEN  8690 

PRINT  ■GGIJMINIMUH  Z  HUST  BE  GREATER  THAN  ZEROJ’ 

GO  TO  8630 
W1=U1+1 .OE-3 
W1=INT(LGT(U1 ) ) 

U2=U1+U3 

DEF  FNU<V)=LGT(V) 

RETURN 


REM  »**LOG-LOG  COORDINATES*** 

1  =  1 

IF  I=S1+1  THEN  8840 
IF  A(I,X7)=0  THEN  8810 
IF  A<I.Y7)=0  THEN  8810 
1  =  1  +  1 

GO  TO  8760 

PRINT  'GGOGGERROR:  a  zero  value  has  been  FOUND  IN  THE  DATA* 
PRINT  'IT  MUST  BE  REMOVED  BEFORE  A  LOG  PLOT  CAN  BE  MADE* 

GO  TO  1100 
FOR  1=1  TO  Sl 

X( I )=LGT< A< I »X7) ) 

Y( 1 )=LGT(A(I »Y7)  ) 

NEXT  I 

IF  U9=0  THEN  9000 
IF  P8=l  THEN  9000 
1  =  1 

IF  I=S1+1  THEN  8970 
IF  A( I ,W7)=0  THEN  8940 
1  =  1  +  1 

GO  TO  8900 

PRINT  *qggggerror:  a  zero  value  has  been  found  in  the  z  data 

PRINT  ‘IT  MUST  BE  REMOVED  BEFORE  A  LOG  PLOT  CAN  BE  MADE* 

GO  TO  1100 
FOR  1=1  TO  SI 

U( I )=LGT ( A( I ,M7)  ) 

NEXT  I 

PRINT  "JINPUT  MINIMUM  BOUNDARY  FOR  X  AND  NO.  OF  CYCLES'.*; 
INPUT  XI. X3 
IF  X1>0  THEN  9050 

PRINT  'GGIJMINIMUM  X  MUST  BE  GREATER  THAN  ZEROJ* 

GO  TO  9000 
X1=X1+1 .OE-3 


v‘>V- 


UNCLASSIFIED 


+  +  +  1  +  »■  + 


+  +  4  1++  V 


f++l+++ 


+  +  +Uf  + 


I++2+++ 


9060 

9070 

9030 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 


9360 

9370 

<=380 


9390 
9400 
9410 
9420 
9  430 
9440 


9450 
9460 
9  4  70 
9480 
0  490 


UNCLASSIFIED 
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PRINT  ’JINPUT  MINIMUM  BOUNDARY  FOR  Y  AND  NO.  OF  CYCLES) 
INPUT  Y1,Y3 
IF  Yi:  0  THEN  9110 

PRINT  'OGUMINIMUM  Y  MUST  BE  GREATER  THAN  ZEROJ' 

GO  TO  9060 
Y1=Y1+1 .OE-3 
IF  U9=0  THEN  9250 
IF  P8=l  THEN  9250 

PRINT  'JINPUT  MINIMUM  BOUNDARY  FOR  2  AND  NO.  OF  CYCLES! 
INPUT  W1.W3 
IF  U1>0  THEN  9190 

PRINT  'GGIJMINIMUM  2  MUST  BE  GREATER  THAN  2ER0J* 

GO  TO  9140 
W1=W1P1 . OE-3 
Ul  =  INT(l.GT(Ul  )  ) 

W2=W1+W3 

DEF  FNW(0)=LGT(V) 

M6=U3/100 
A9  =  0 

Y1=INT(LGT(Y1) ) 

X1=INT(LGT<X1 ) ) 

X2=X1TX3 

Y2=Y1+Y3 

DEF  FNX<0)=L6T(y) 

DEF  FNY( V)=LGT (V) 

M1*X3/100 
M2=Y3/100 
P5  =  0 
P7  =  0 
RETURN 


MUST  BE  GREATER  THAN  ZEROJ' 


REM***SYMBOL  PLOTTING  ROUTINE*** 

REM  ***  M1=SYMB0L  UIDTHf  M2=SYMB0L  HEIGHT*** 

GO  TO  M4  OF  9390»9450F9520f 9590*9650. 9710»9760 


::  s- --I 


REM  ***TRI ANGLE*** 


R.MOVE  0O9:o.M2 
RDRAW  mQ9;mi.-2*M2 
RDRAW  en9;-2»M1.0 
RDRAU  0n9:M1.2*M2 
RETURN 


REM***  SQUARE*** 
RMOVE  eQ9;Ml.M2 
RDRAW  C3Q9;o,-2*M2 
RDRAW  PQ9;-2*M1.0 
RDRAW  (?09:0.2*M2 


UNCLASSIFIED 


.  V V  ■ . 


UNCLASSIFIED 
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9500 

9510 

RDRAW  0Q9:2*M1.O 

RETURN 

V  - 

V-.V; 

>.VJ 

- 3 - 

9520 

REM*)*!*DIAM0ND**)ti 

9530 

RMOVE  0O9:O»H2 

Wo 

9540 

RDRAU  0Q9:M1»-M2 

SbS: 

9550 

RDRAU  eQ9J-Ml»-M2  . 

9560 

RDRAU  0Q9:-M1»M2 

O'-O' 

9570 

RDRAU  eQ9:Ml.M2 

9580 

RETURN 

.y 

- 4 - 

9590 

REM  )K)K)|C  +  **»* 

— 

9600 

RMOVE  009: Of  M2 

9610 

RDRAU  00910 f-2*M2 

9620 

RMOVE  0O9;MlfM2 

9630 

RDRAU  0Q9:-2*MlfO 

9640 

RETURN 

---3--- 

9650 

REM 

9660 

RMOVE  @Q9:MlfM2 

9670 

RDRAU  0Q9:-2»Mlf-2»M2 

>-’v 

9680 

RMOVE  0Q9:2*MlfO 

9690 

RDRAU  0Q9:-23t!Mlf2*M2 

y^v 

9700 

RETURN 

•V-** 

•  X'; 

---3 - 

9710 

REM  **!*;•*■ 

9720 

GOSUB  9590 

9730 

RMOVE  MlfO 

.*'■  m 

9740 

GOSUB  9660 

9750 

RETURN 

'V. 

- 3 - 

9760 

REM  t**  POINT*** 

9770 

RDRAU  0O9:OfO 

-T- 

9780 

RETURN 

9790 

REM***  END  SYMBOL  PLOTTING  ROUTINE*** 

+++1+++ 

9800 

REM  ***  DATA  SORT  ROUTINE*** 

9810 

PRINT  'Ll  SORTING  ROUTINE  (HIGH  VALUES  FIRST)' 

9820 

PRINT  "JJ'fStfJJ* 

9830 

PRINT  'J  INPUT  THE  COLUMN  THAT  IS  TO  BE  SORTED*,  'i 

9840 

INPUT  S4 

9850 

IF  S4  1  OR  S4  VI  THEN  9880 

9860 

PRINT  'J  COLUMN  IS  OUT  OF  RANGE* 

9870 

GO  TO  10080 

* 

UNCLASSIFIED 


+++2+++ 


+++2+++ 


+  +  +  14-  +  + 


+++!+++ 


+++1+++ 


I  ++m  t 


+++1+++ 

+++1+++ 


9880 
9890 
9900 
9910 
9920 
9930 
9940 
9950 
9960 
9970 
9980 
9990 
10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
1  0370 


F4  =  0 

FOR  1=1  TO  Sl-1 

IF  A(IfS4)=:;  A(I  +  1»S4>  THEN  9970 
F4  =  l 

FOR  J=1  TO  VI 
T1=A(Ij J) 

A(I» J)=A(I+lf J) 

A< I+l f J)=T1 
NEXT  J 
NEXT  I 

IF  F4=l  THEN  9880 
PRINT  'JISORTED  VALUES* 

PRINT 

FOR  I=l  TO  SI 
PRINT  I}* 

FOR  J=1  TO  VI 

PRINT  USING  1220tA(I»J> 

NEXT  J 
PRINT 
NEXT  I 
END 

REH  )K)i:*END  SORTING  ROUTINE*** 

REM  **COLUMN  GENERATED  FROM  EXIBTIING  DATA*** 

PRINT  'LICOLUMN  GENERATED  FROM  EXISTING  DATA* 

PRINT  ‘JJ'lSiJ'JJ* 

IF  VI <V2  THEN  10160 

PRINT  *JJNO  MORE  COLUMNS  ALLOWEDGGGG* 

GO  TO  10310 

PRINT  'Jl.  COLUMN  TO  BE  TRANSFORMED  IS  WRITTEN  IN  ARRAY  FORMAT' 
PRINT  ■  i.e.A(I»ri)  WHERE  n  IS  THE  COLUMN  NUMBER.* 

PRINT  *2.  THE  TRANSFORMATION  IS  INPUT  BY  RFCALLING  LINE  10260»' 
PRINT  •  AND  CHANGING  THE  EQUATION* 

PRINT  *3.  ONLY  THE  RIGHT  HAND  SIDE  OF  THF  EQUATON  IS  CHANGED* 
PRINT  *  i.e,  FOR  Y=l/X»  INPUT  1/A(I»3)»  IF  USING  COLUMN  3* 
PRINT  M.  RECALL  10260»  MAKE  ANY  CHANGES*  PRESS  USER  KEY  *13* 


PRINT  ■  i.e.A(I*ri)  WHERE  n  IS  THE  COLUMN  NU 
PRINT  *2.  THE  TRANSFORMATION  IS  INPUT  BY  RFCA 
PRINT  *  AND  CHANGING  THE  EQUATION* 

PRINT  *3.  ONLY  THE  RIGHT  HAND  SIDE  OF  THF  EQU 
PRINT  *  i.e,  FOR  Y=l/Xf  INPUT  1/A(I*3)»  IF 
PRINT  M.  RECALL  10260*  MAKE  ANY  CHANGES*  PRE 
PRINT  *JJ  ONLY  *102-01?*  MORE  COLUMNS  ARE  ALLOWED! 
END 

FOR  1=1  TO  SI 

A(I*V1+1)=A(I*5)*10 
NEXT  I 
01=01+1 
Z=1 

GO  TO  1090 
END 

REM  ***  LIST  ON  PRINTER  WITH  VARIABLE  E  FORMA 
DELETE  h 
DIM  Ml VI) 

M  =  0 

PRINT  *IS  SCIENTIFIC  NOTATION  FORMAT  REQUIRED 
INPUT  2% 


UNCLASSIFIED 


FORMAT**** 


(Y  OR  N)?*? 


•‘•'•'■.-'j 


•  -  •  -  V  >  V  >  V 


ir^^rKjrrswKs 


UVJIUIV* 


+  +  +1  +  +  4- 
+++1+++ 


+++1+++ 

+++1+++ 


+++1+++ 


H  +2  +  +  + 
+  +  +  3+  »  + 
+  ♦  +  1  +  +  + 


+++1+++ 


+  -H- 1  +  +  + 


t++l++f 


+++1+ I + 
+++4+++ 


+++1 +++ 


10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 

10590 

10600 

10610 

10620 

10630 

10640 

10650 

10660 

10670 

10680 

10690 

10700 

10710 

10720 

10730 

10740 


10750 


107  60 
10770 
10780 
10790 
10800 
10810 
10320 
10830 
10840 
10850 
10860 
10870 
10880 


UMCLASSIFIED 
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IF  Z*=‘Y’  THEN  10410 
PRINT  609: •LJJI* JS$» * JJ* 

IF  Z$='N’  THEN  1150 

PRINT  'JINPUT  NUHBER  OF  SIGNIFICANT  FIGURES  (3  TO  6) 
FOR  I--=l  TO  VI 

PRINT  'JFOR  COLUHN  ■lli*  =*» 

INPUT  Z 

IF  Z<3  OR  Z>6  THEN  10430 
M<  I  )=Z-2 
NEXT  I 

PRINT  eQ9:*L* 

PRINT  609: • JJJJJJJJJJ* 

FOR  1=1  TO  SI 
PRINT  809:' 

FOR  J=1  TO  VI 

IF  A(ItJ)<1.0E-9  THEN  10760 

GO  TO  Vl-1  OF  10560» 10580» 10600. 10620» 10620 


12X.S' 


•6X.S* 


X.S' 


PRINT 
60  TO 
PRINT 
GO  TO 
PRINT 
GO  TO 
PRINT 
GO  TO 
PRINT 
IMAGE 
GO  TO 
PRINT 
IMAGE 
GO  TO 
PRINT 
IMAGE 
GO  TO 
PRINT 
IMAGE 
GO  TO 
PRINT 
IMAGE 
NEXT  J 
PRINT  6Q9: 

NEXT  I 
PRINT  609: 

09  =  32 
END 

REM  ***  CALCULATION  OF 
PRINT  "L  I  CALCULATION 
PRINT  'J  THIS  CAN  ONLY 
PRINT  ■  STOP  CALCULATIONS 
PRINT  'J  THE  CALCULATIONS 


609:  USING 
10630 

609:  USING 
10630 

609:  USING 
10630 

609:  USING 
M(  J) 

609: 

2E.S 

10780 

609:  USING 
3E.S 
10780 

609:  USING 
4E.S 
10780 

609:  USING 
5E.S 
10780 

609:  USING 
5X.  •  - 


IX. s* : 

OF  10640.10670.10700.10730 
USING  10650:A(I.J> 


10680:A(I. J) 


io7io:a(i. J) 


10740: A(I .J) 


10770: 

•  .s 


Y  FROM  X  AFTER  L.S,»** 

OF  Y  FROM  X* 

BE  USED  AFTER  A  PLOT  HAS  BEEN  MADE' 
WITH  A  CARRIAGE  RETURN' 

ASSUME  A  STRAIGHT  LINE.  AND' 


UNCLASSIFIED 


0.  C.  4-1 


A  Jf  J‘ 


UNCLASSIFIED 
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10890 

PRINT  *  USE  THE  LEAST  SQUARES  PARAMETERS,* 

1C  895 

Z=1 

10900 

IF  U9=0  THEN  10930 

10910 

PRINT  -JJCALCULATE  Y  (1)  OR  Z  (2)  FROM  X?*f 

10920 

INPUT  Z 

+++1+++ 

10930 

PRINT  ‘JLIST  ON  SCREEN  (1)  OR  PRINTER  (2)?*f 

10940 

INPUT  1 

10950 

IF  1=2  THEN  10980 

10960 

Q9  =  32 

10970 

GO  TO  10990 

+++1+++ 

10980 

Q9  =  41 

10985 

PRINT  0Q9: ‘LIJJ* 1S*»* JJJ* 

+++1+++ 

10990 

IF  Z=1  THEN  11040 

11000 

A3  =  A5 

1 1010 

B1  =  B3 

11020 

Z»=*Z  EST* 

11030 

GO  TO  11070 

+++1+++ 

11040 

A3  =  A6 

11050 

B1  =  B4 

11060 

Z»=*Y  EST* 

+++2+++ 

11070 

PRINT  'JINPUT  X:*{ 

11080 

INPUT  F$ 

11090 

IF  F*=**  THEN  11270 

11100 

F2=0AL<F*) 

1  ll  10 

IF  Z=l  THEN  11140 

11120 

IF  P8=0  THEN  11140 

11130 

GO  TO  E4+N4  OF  1 1 150f 1 1 170f 1 1 190f 1 1 220 

+++2+++ 

11140 

GO  TO  PI  OF  lllSOf 11170»11190»11220 

+++2+++ 

11150 

G2=A3+B1*F2 

11160 

GO  TO  11240 

*■  +  +  2  +  +  + 

11170 

G2  =  A3  +  Eil*LGT<F2) 

1  1180 

GO  TO  11240 

+++2+++ 

11190 

G2=A3+B1*F2 

11200 

G2^10"G2 

11210 

GO  TO  11240 

+++2+++ 

11220 

G2  =  A3  +  Bli|!LGT  (F2) 

11230 

G2=10''G2 

+  +  +  3  +  +t- 

11240 

PRINT  0Q9;*I  X=* fF2f *11* 1Z»1 •=• f G2 

11250 

PRINT 

11260 

GO  TO  11070 

+++1++1 

11270 

Q9  =  32 

11280 

END 

+++l+i + 

11290 

REM  **♦  CALCULATE  X  FROM  Y  AFTER  L,S.*#* 

11300 

PRINT  "L  I  CALCULATION  OF  X  FROM  Y* 

11310 

PRINT  'J  THIS  CAN  BE  USED  ONLY  AFTER  A  PLOT  HAS 

11320 

PRINT  *  STOP  CALCULATIONS  WITH  A  CARRIAGE  RETURN 

11330 

PRINT  "J  THE  CALCULATIONS  ASSUME.  A  STRAIGHT  LINE 

11340 

PRINT  ’USE  THE  LEAST  SQUARES  PARAMETERS.’ 

J  1345 

Z  =  1 

11350 

IF  W9-0  THEN  11380 

■•VA 


BEEN  MADE* 


AND* 


K  r~r^. 


^vV’J 

.*•  .■'•V' 

*  •-  ..  •  -  • 


•  **>  * 


*'•  *“•••*% 


V-. 


•  ■ 


.v-“.v, 


rf*  ^  ^ 


UNCLASSIFIED 


UNCLASSIFIED 
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11360 

PRINT  'JCALCULATE  X  FROM  Y  (1)  OR  Z  (2)?’ 

11370 

INPUT  7 

+++1+++ 

11380 

PRINT  ’JLIST  ON  SCREEN  (1)  OR  PRINTER  (2)?'; 

11390 

INPUT  I 

11400 

IF  1=2  THEN  11430 

11410 

Q9  =  32 

11420 

GO  TO  11440 

+++1+++ 

11430 

09  =  41 

11435 

PRINT  009: ‘LUJ* * jjj* 

+++1+++ 

11440 

IF  Z=1  THEN  11490 

11450 

A3  =  A5 

1 1  460 

81  =83 

11470 

Z4='Z' 

11480 

GO  TO  11520 

+++1+++ 

11490 

Zt=*Y‘ 

11500 

A  3  =  H  6 

11510 

81=84 

+++2+++ 

11520 

PRINT  'INPUT  'IZff'  :•» 

11 530 

INPUT  Gt 

11540 

IF  G«=' •  THEN  11730 

11550 

G2=VAL<Gi) 

1 1560 

IF  Z=1  THEN  11590 

11570 

IF  P8=0  THEN  11590 

1  1580 

GO  TO  N4+E4  OF  1 1600 » 1 1 630 > 1 1 660 i 1 1 630 

+++2+++ 

11590 

GO  TO  PI  OF  11600*11630tll660jll680 

+++2++t 

11600 

F2=(G2-A3 ) /B1 

11610 

GO  TO  11700 

11620 

F2=(G2-A3)/Bl 

f++2+++ 

11630 

F2=(G2-A3'-/B1 

11640 

F2  =  10''F2 

11650 

GO  TO  11700 

+  +  +-2  +  +  4- 

11660 

F2=(LGT'G2'»-A3)/Bl 

11670 

GO  TO  1170(' 

+++2+++ 

11680 

F2=(LnT(G2)-A3)/Bl 

11690 

F2  =  10''F  " 

+  +  +  34-  +  4' 

11700 

PRINT  009  *. 'I' iZ$'.  •  =  •  iG2» 'IIX  EST='fF2 

11710 

PRINT 

11720 

GO  TO  11520 

+++1+++ 

11730 

09  =  32 

11740 

END 

+++1+++ 

11750 

REM***  ADIUNG  TWO  FILES  OF  DATA  (SAME.  NUMBER  OF  COLUMNS)*** 

11760 

PRINT  'Ll  ADDING  TWO  SETS  OF  DATA  (WITH  SAME  *  OF  COLUMNS)' 

+++1+++ 

11770 

PRINT  'J  ADD  MAG  TAPE  FILE  TO  CURRENT  FILE  (Y  OR  N)?'? 

11780 

INPUT  1% 

11790 

IF  Z$='Y'  THEN  12390 

11800 

PRINT  'J  ADD  TWO  MAG  TAPE  FILES  (Y  OR  N )  •? '  » 

11810 

INPUT  Z't 

11820 

IF  Z$:;  'Y'  THEN  11770 

11830 

PRINT  'IJADDITION  OF  TWO  MAG  TAPE  FILES  (SAME  *  OF  COLUMNS)' 

11840 

PRINT  'JJ  INSERT  DATA  TAPE  NOWQGG' 

UNCLASSIFIED 


UNCLASSIFIED 
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11850  PRINT  "J  INPUT  NUMBER  OF  FIRST  FILE:’j 
11860  INPUT  Q1 

11870  FIND  Q1 

11880  READ  @33151 

11890  READ  @33101 

11900  DELETE  A 

11910  DIM  A(si»yn 

11920  FOR  1=1  TO  SI 

11930  FOR  J=1  TO  VI 

11940  READ  033:A<I.J) 

11950  NEXT  .1 

11960  NEXT  I 

11970  PRINT  "JJ  INSERT  NEXT  TAPE»  IF  NECESSARY  GQG* 

11980  PRINT  ‘J  INPUT  NUMBER  OF  SECOND  FlLEl'l 

11990  INPUT  Q2 

12000  FIND  Q2 

+++1+++  12010  READ  @33tT2fV8 

12020  IF  V8=V1  THEN  12050 

12030  PRI  ■  INCOMPATABLE  DAT  A  V8  f  •  COLUMNS  IN  FILE  2;*Jyi?*  IN  FILE  1 
12040  GO  TO  12380 

+++1+++  12050  IF  S2=>S1+T2  THEN  12130 

12055  Z=S2-S1 

12060  PRINT  "JGQGGGTOO  MANY  DATA  POINTS!* 

12070  PRINT  ‘J  ONLY  '^Z}*  OF  •}T2}*  UILL  EE  READ  INJ* 

12080  T2=Z 

+++1+++  12130  V2=Vl+2 

12140  FOR  I=S1+1  TO  S1+T2 
12150  FOR  J=1  TO  VI 

12160  READ  @33:A(I»J) 

12170  NEXT  J 

12180  NEXT  I 

12270  S1=S1+T2 

12280  PRINT  ’INPUT  NEU  DATA  IDENTIFICATION  ( <72  CHARACTERS)* 

12290  INPUT  S$ 

12300  FOR  1=1  TO  SI 

12310  PRINT  li*  *f 

12320  FOR  J=1  TO  VI 

12330  PRINT  A(IfJ);*  *5 

12340  NEXT  .1 

12350  PRINT 

12360  NEXT  I 

12370  DELETE  0 

+++1+++  12380  END 

+  4-  +  1+  +  +  12390  REM  ***  ADDITION  OF  MAG  TAPE  DATA  TO  CURRENT  DATA*** 

12400  PRI  'JIADDITION  OF  MAG  TAPE  DATA  TO  CURRENT  DATA<'?Vi;*  COLUMNS) 
12410  PRINT  ’JJINSERT  DATA  TAPE  NOWGDG* 

12420  PRINT  ’JINPUT  FILE  NUMBER! *« 

12430  INPUT  Q1 

12440  FIND  Q1 

12450  GO  TO  12010 


UNCLASSIFIED 


UNCLASSIFIED 
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+++1+++ 


+++1+++ 

+++1+++ 


12460  END 

12470  REM  *)K*REREAT  PLOT  ♦** 

12480  PRINT  'LIREPEAT  THE  LAST  PLOT* 

12490  PRINT  'JJTHE  PLOT  WILL  BE  IDENTICAL  TO  THE  LAST  FLOTJ* 

12500  PRINT  *  ONLY  THE  SIZE.  SYMBOL  AND  OUTPUT  DEVICE  CAN  BE  CHANGE 

12510  PRINT  ‘JJ  CONFIRM  IDENTICAL  PLOT  NEEDED  (Y  OR  N't:*! 

12520  INPUT  2* 

12530  P9=0 

12540  IF  Z$C,;  ‘Y*  THEN  3650 
12550  IF  H6  >2  THEN  12570 
12560  H6=3 

12570  GO  TO  4460 
12580  END 

12590  REM  **HtPLOTTING  Z  AXIS*** 

12600  GOSUB  E4+1  OF  12860.12360.12610 


12610  REM  ***LOG  AXIS  AND  TIC  MARKS  FOR  Z  AXIS 

12620  WINDOW  X1.X2.W1.W2 

12630  T7=W3 

12640  T9=-T9 

12650  MOVE  0Q9:X2.U1 

12660  FOR  1=1  TO  T7 

12670  Z8=0 

12680  FOR  J--2  TO  10 

12690  Z9=LGT<J) 

12700  RDRAU  eQ9tT8. 29-28 

12710  RDRAU  @09:T2,T8 

12720  RDRAU  0O9;-T9,T8 

12730  Z8=Z9 

12740  NEXT  J 

12750  NEXT  I 

12760  REM  ***  NUMBERING  THE  Z  AXIS 

12770  P0=W1 

12780  FOR  1=0  TO  W3 

12790  MOVE  e09  5V2,Ul-!T 

12800  PRINT  GO?;*  lOK’iPO 

12810  P0=P0+; 

12820  NEXT  I 
12830  WINDOW  X1.X2.Y1.Y2 
12840  GO  TO  4730 
12850  END 


12860  REM***  DRAW  CARTESIAN  AXIS  AND  TIC  MARKS  FOR  Z 

12870  WINDOW  X1.X2.W1.W2 

12880  MOVE  e09:X2»Ul 

12890  T7=W3 

12900  T9  =  -T'? 

12910  Z8=0 


UNCLASSIFIED 


+++1+++ 


+++1+++ 


+++1+++ 


+++2+++ 


+++1+++ 


+++1+++ 


+»+!+++ 


+  +  +H-  +  + 


+++1+++ 


UNCLASSIFIED 
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12920 
12930 
12940 
12950 
129&0 
1  2970 
12980 
12990 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
13250 
13260 
13270 
13280 
13290 
13300 
13310 
13320 
13330 
13340 
13350 
13360 
13370 
13380 
13390 
13400 
13410 
13420 
13430 


AXIS  (CARTESIAN) 


•-2II.2II*  :P6 


AXIS 


79=(W2  -U1 )/10 
FOR  J=1  TO  10 
RDF; AW  (>Q9tT8.Z9 
RIiRAW  (?Q9:T9.T3 
RtiRAU  8Q9:-T9.T8 
NEXT  J 

REM  ***NUMEiERING  Z  AXIS  (CARTESIAN) 

T9  =  X2 
P0  =  U1 

Z9=(W2-Ul)/5 

A9=1NT(LGT(ABS(U1)+ABS(Z9) )+l .OE-S) 

FOR  1=1  TO  6 
MOVE  0Q9:T9.PO 
P6=P0/10”A9 
IF  Wl  =  :-0  THEN  13080 
PRINT  @09:*  •; 

PRINT  6091  USING  * -2Ii  .2Ii*  :P6 
P0=W1  fZ9i*:l 
NEXT  I 

WINDOW  X1,X2»Y1»Y2 
GO  TO  4730 

REM  )|:**TITLE  FOR  Z  AXIS 
MOVE  0095X2. Y1+Y3/2 
IF  Pl=3  OR  Pl=4  THEN  13180 
PRINT  @095' 

SET  DEGREES 
PRINT  009.255-90 
IF  P9=0  THEN  13260 
IF  A9=0  THEN  13260 
P$=3TR( A9) 

W$=W$J'  flOK' 

W$=Wi&Pl 

FOR  J=1  TO  LEN(Wf)/2 
PRINT  0095 ’H' f 
NEXT  J 

PRINT  0O95W$ 

PRINT  @09.2550 
GO  TO  6300 
END 

REM  KUSYMBOL  SELECTION  FOP  X.Z  POINTS 

PRINT  'J  ENTER  SYMBOL  NUMBER  FOR  X.Z  POINTS! •? 

INPUT  A4 

GO  TO  A4  OF  13370.13390.13410.13430.13450.13470.13490 
A*=*TRIANGLE* 

GO  TO  13500 
A»='SQUARE' 

GO  TO  13500 
Ai=*DIAMOND* 


UNCLASSIFIED 


W 


•■'Y'y-A 


(L.*.  . 

>  ( 


V  V*  v" 


■  •’*  V*'  •  *•**>  "j 

UWCLASSIFIED 
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13440 

GO  TO  13500 

+++1+++ 

13450 

A«=* 'X' • 

13460 

GO  TO  13500 

+++l+f + 

13470 

• 

13480 

GO  TO  13500 

+++1+++ 

13490 

A$='POINT’ 

+++0+++ 

13500 

PRINT  ’ENTER  SYHBQL  NUMBER  FOR  X»Y  POINTS 

13510 

GO  TO  7310 

13520 

END 

+++1+++ 

13530 

REM  ***  DRAUING  X»Z  POINTS 

13535 

IF  Q3=0  OR  04=0  THEN  14110 

13540 

B4  =  B1 

13550 

A6  =  A3 

13560 

UINDOU  X1»X2>U1»U2 

13580 

U5  =  4 

13590 

M2=W3/100 

13600 

M7  =  M4 

13610 

M4  =  A4 

13620 

FOR  TO  04 

13630 

X6  =  X<  I  ) 

13640 

IF  X(1)>X8  OR  X(I)<X9  THEN  13690 

13650 

L=U(1 1 

13660 

G1  =  0 

13670 

MOVE  eQ9:X6»L 

13680 

GOSUB  9360 

+++1+++ 

13690 

NEXT  I 

13700 

REM  )(t»#CALC  OF  LEAST  SQUARES 

13710 

P  =  0 

13720 

G  =  0 

13730 

F  =  0 

13740 

F1  =  0 

13750 

N 1  =  0 

13760 

FOR  1=03  TO  Q4 

13770 

X6  =  X(  I  ) 

13780 

IF  X<I)<X9  OR  X(I)>X8  THEN  13860 

13790 

Y6  =  U<  I ) 

13800 

P=P+X6*Y6 

13810 

G=G+Y6 

i  3820 

F=F+X6 

13830 

F1  =  F1  +  X6''2 

13840 

N1=N1+1 

13850 

Gl  =  Gl  +  r6''2 

+++1+++ 

13860 

NEXT  I 

13870 

HOME 

13880 

PRINT  "JJJJJJ* 

13890 

GO  TO  5100 

+++1+++ 

13900 

REM  PRINT  OUT  OF  COEF  FOR  XfZ  DATA 

13910 

PRINT  ’JJJJJJ* 

13912 

IF  P8=l  THEN  13920 

13914 

GO  TO  PI  OF  13930»13960» 13990. 14020 

UNCLASSIFIED 
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+++1+++ 

13920 

60  TO  N4+E4  OF  13930f 13960» 13990 r 14020 

+++2+++ 

13930 

PRINT  USING  13940:A3.B1 

13940 

IMAGE  ■2=' *+4E»X»+4E» •AX- 

13950 

GO  TO  14040 

+++2+++ 

13960 

PRINT  USING  13970:A3»Itl 

13970 

IMAGE  ■Z=* »+4E»Xt+4Et •*  LOG  X* 

13980 

GO  TO  14040 

+++2+++ 

13990 

PRINT  USING  14000:A3fBl 

14000 

IMAGE  -LOG  Z=* f +4EfX»+4Ef •*  X' 

1  4010 

GO  TO  14040 

ft 

+++2+++ 

14020 

PRINT  USING  14030tA3fBl 

14030 

IMAGE  -LOG  Z=* »+4E»X.+4E» •*  LOG  X' 

+++3+++ 

14040 

PRINT  -COEF  OF  DETERMINATION  (R''2)=  ’  f92 

+  +  +1+4  + 

14050 

WINDOW  Xl»X2.YlfY2 

14060 

M2=Y3/100 

14070 

B3  =  B1 

14080 

A5=A3 

14090 

M4  =  M7 

14100 

W5=l 

+++1+++ 

14110 

GO  TO  5520 

14120 

END 

+++!+++ 

14130 

REM  A**ROUTINE  FOR  2  AXIS  DIl-FERENT  FROM 

Y 

AXIS  (P8=1)!X** 

14140 

PRINT  -JCARTESIAN  (1)  OR  LOG  (2)  COORDINATES  ON  Z,  AXIS'?*  1 

14150 

INPUT  E4 

14160 

IF  E4=2  THEN  14180 

14170 

E4=0 

+++1+++ 

14180 

IF  Pl=2  OR  Pl=4  THEN  14210 

14190 

N4=l 

1  4200 

GO  TO  14220 

+++1+++ 

14210 

N4=:2 

+++1+++ 

14220 

IF  E4=2  THEN  14310 

14230 

FOR  1=1  TO  SI 

14240 

U';i)=A(I»U7') 

14250 

NEXT  I 

14260 

PRINT  'INPUT  BOUNDARIES  FOR  Z^MINf  MAXIf 

9 

14270 

INPUT  UlrW2 

14280 

W3=W2-W1 

14290 

DEF  FNW'y)=V 

14300 

GO  TO  4190 

+  +  +  1  +  +  + 

14310 

1  =  ] 

+4+1+++ 

14320 

IF  I=S1+1  THEN  14390 

14330 

IF  A(IjU7)=0  then  14360 

14340 

1  =  1  +  1 

14350 

GO  TO  14320 

4++1+++ 

14360 

PRINT  'gggogggerror:  a  zero  value  has  been 

FOUND  IN  THE  Z  DATA* 

14370 

PRINT  •  IT  MUST  BE  REMOVED  BEFORE  A  LOG 

PLOT  CAN  BE  MADE' 

14380 

GO  TO  1100 

+  +  +  1  +  +  + 

14390 

FOR  1=1  TO  SI 

14400 

W(I)=LGT(A<I»W7)) 

14410 

NEXT  I 
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+++1+++ 

+++1+++ 

+++1  +  +  + 


+++1+++ 

+++1+++ 

+++1+++ 

+++1+++ 

+++1+++ 


14420  PRINT  ‘JINPUT  HINIMUM  BOUNDARY  FOR  Z  AND  NO.  OF  CYCLES;'; 

14430  INPUT  U1,U3 
14440  A9=0 

14450  IF  W1>0  THEN  14480 

14460  PRINT  'HINIMUh  Z  HUST  BE  GREATER  THAN  ZERO  GGGOJ' 

14470  60  TO  14420 

14480  U1=U1+0.01 

14490  U1  =  INT(LGT(W1 )  ) 

14500  U2=W1+W3 

14510  DEF  FNW(0)=LGT<U) 

14520  GO  TO  4190 

14530  REM  ***DASHED  LINES  ON  A  PLOT*** 

14540  PRINT  'LIDASHEIi  LINES  ON  PLOTJ* 

14550  PRINT  •  1 .  NO  DASHEP  LINE' 

14560  PRINT  '  2.  DASHED  LINE  ON  X»Y  PLOT' 

14570  IF  W9=0  THEN  14590 

14580  PRINT  '  3.  DASHED  LINE  ON  XtZ  PLOT* 

14590  PRINT  '  JJ  ENTER  SELECTION  NUMBER*.'; 

14600  INPUT  N8 

14610  GO  TO  N8  OF  1 4620 t 1 4640 » 14660 
14620  Et='SET  OFF' 

14630  GO  TO  6740 

14640  E$=*SET  ON  X»Y  PLOT' 

14650  GO  TO  14670 

14660  E$='SET  ON  X.Z  PLOT' 

14670  PRINT  'JJSELECT  DASH  PATTERN  (FOR  PLOTTER  ONLY)  -' 

14680  PRINT  'll.  - ' 

14690  PRINT  '12. 

14700  PRINT  '13.  . . ' 

14710  PRINT  'JINPUT  SELECTION*. 't 

14720  INPUT  N5 

14730  REM  ***INPUTING  THE  EQUATION  FOR  THE  DASHED  LINE 
14740  PRINT  'JINPUT  THE  EQUATION  IN  LINE  14890' 

14750  PRINT  'INSTRUCTIONS' 

14760  PRI  'll.  THE  EQUATION  IS  WRITTEN  IN  TERMS  OF  R<I).  (X  COMPONENT) 
14770  PRINT  'I  AS  A  FUNCTION  OF  N(I).  (THE  Y  COMPONENT)' 

14780  PRINT  '12.  ONLY  N(I)  SHOULD  BE  ON  THE  LEFT  SIDE  OF  THE  EQUATION' 

14790  PRINT  '13.  RECALL  LINE  14890  AND  INPUT  THE  EQUATION' 

14800  PRINT  '14.  THEN  PRESS  USER  KEY  *18' 

14810  END 


14820  REM  ***PLOTTING  THE  DASHED  LINE  **# 
14830  DELETE  N.R 
14840  DIM  N<S1 ) »R(S1) 

14850  N=0 

14860  R-0 

14870  FOR  I*=l  TO  SI 
14830  R<I)=A<I.y7) 

14890  N( I )=P ' I '*0.01 


UNCLASSIFIED 


UNCLASSIFIED 


14900 

NEXT  I 

14910 

IF  N8=2  THEN  14940 

14920 

WINDOW  X1.X2.W1.W2 

14930 

GO  TO  14950 

+++1+++ 

14940 

WINDOW  X1.X2.Y1.Y2 

+++1+++ 

14950 

IF  P8=0  THEN  14970 

14960 

GO  TO  N4+E4  OF  14980.15020.15060.15100 

+++1++  + 

14970 

GO  TO  PI  OF  14980.15020.15060.15100 

+++2+++ 

14980 

REM***CARTESIAN 

14990 

DEF  FNR(V)=U 

15000 

DEF  FNN(V)=0 

15010 

GO  TO  15140 

+++2+++ 

15020 

REM***SEMILOG  ON  X 

15030 

DEF  FNN<0)=y 

15040 

R  =  LGT(R  ' 

15050 

GO  TO  15140 

+++2+++ 

15060 

REM  ***  SEMILOG  ON  Y 

15070 

DEF  FNR(y)=0 

15080 

N=LGT<N) 

15090 

GO  TO  15140 

+++2+++ 

15100 

REM***  LOG-LOG 

15110 

R=LGT(R) 

15120 

N=LGT<N ) 

15130 

REM***DRAWING  DASHED  LINE  *** 

1++3+++ 

15140 

IF  Q9=l  THEN  15220 

15150 

MOVE  0Q9:R(  n  ,N<1> 

15160 

DASH  85 

15170 

DRAW  0O9:R.N 

15180 

DASH  0 

15190 

WINDOW  X1.X2.Y1.Y2 

15200 

RETURN 

15210 

END 

+++1+++ 

15220 

REM  DASHED  LINE  FOR  PLOTTER 

15230 

GOSUB  N5  OF  15330.15380.15430 

15240 

MOVE  0Q9:R( 1 ) .N< 1  ) 

15250 

FOR  1=1  TO  SI 

15260 

DRAW  0Q9:R( I) .N( I > 

15270 

MOVE  0Q9:R  ■:  I )  .N(I  > 

15280 

NEXT  I 

15290 

PRINT  01 .32:  ’BL  *  50 

15300 

WINDOW  X1.X2.Y1.Y2 

15310 

RETURN 

15320 

END 

- 1 - 


15330 

15340 

15350 

15360 

15370 


REM*** - **** 

PRINT  01.32;*BL*}1 

PRINT  01 , 32: 'BD* } 1 f 1 f 1 f  1 » 1 » 1  •  1  •  1  » 1  •  1 

PRINT  (?1 .32: 'BS' }  10 

RETURN 
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15380  REM***  -.-,-.-,*** 

15390  PRINT  ei.32:’BL’*»l 

15400  PRINT  ei.32fElD*}l.l»0»l»l»l>0,l»l»l»0f  Ifl 

15410  PRINT  01.321 ‘BS'llO 

15420  RETURN 


15430  REM***  ,,,.....*** 

15440  PRINT  @1.321‘BL*;i 

15450  PRINT  @1 .321 ’BD' 10.0.0. 1 .0. 1. 0. 1 .0. 1 .0. 1 .0 
15460  PRINT  01.321'BS‘}5 
15470  RETURN 
15480  END 


—  1  — 

15490 

REM  POINTER  FUNCTION 

15500 

VIEWPORT  10.95.0.30 

15510 

WINDOW  0,20. -0.6. 5 

15520 

MOVE  0.0 

15530 

DRAW  0.2.5 

15540 

DRAW  20.2.5 

15550 

DRAW  20.0 

15560 

DRAW  0.0 

15570 

FOR  1=1  TO  5 

15572 

MOVE  0.1^2 

15574 

DRAW  20.1/2 

15576 

NEXT  I 

15578 

VIEWPORT  20.85,80.110 

15580 

WINDOW  0.20. -0.5, 5 

15582 

MOVE  0,0 

15584 

DRAW  0,2.5 

15586 

DRAW  20.2,5 

15588 

DRAW  20.0 

15590 

DRAW  0,0 

15592 

FOR  1=1  TO  5 

15594 

MOVE  0,1/2 

15596 

DRAW  20.1/2 

15598 

NE/T  I 

15610 

VIEWPORT  5.100.0.98 

15620 

WINDOW  Xl-0.23*X3.X2+0. 15*X3. Y1-0.54*Y3 . Y 

15630 

H  =  0 

+++1+++ 

15640 

L$  =  *  ■ 

15650 

H4=l 

15660 

1  =  1 

15670 

CHARSIZE  1 

+++3+++ 

15680 

POINTER  H1.H2.H* 

15690 

MOVE  @Q9:H1.H2 

15700 

IF  =  THEN  16320 

UNCLASSIFIED 
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15710 

IF  H$=V3*  THEN  15810 

15720 

IF  THEN  15860 

15730 

IF  H$=*l'  THEN  16030 

15740 

IF  Ht=*2'  THEN  16070 

15750 

IF  H*='3'  THEN  16110 

15760 

IF  H$='4'  THEN  16150 

15770 

IF  H$=*5'  THEN  16190 

15780 

IF  H$='6*  THEN  16230 

15790 

IF  H»=’7*  THEN  16270 

15800 

GO  TO  15680 

+++1+++ 

15810 

REM  H$='8‘.  CORRECT  LAST 

ENTRY 

15820 

IF  1=1  THEN  15640 

15830 

1  =  1-1 

15840 

MOVE  8Q9:H(I.3)»H(I»4) 

15850 

GO  TO  15680 

+++1+++ 

15860 

REM  Hi='0'.  WRITING  ONLY. 

NO  SYMBOL 

15870 

H  (  I  .  1 )  =  0 

+++?+++ 

15880 

H(I.4)=H1 

15890 

H( I f 5>=H2 

15900 

IF  H$=*0‘  THEN  15940 

15910 

H( I .2)=H4 

15920 

H< I »3)=0 

15930 

GO  TO  16010 

+++1+++ 

15940 

PRINT  0Q9:”« 

15950 

INPUT  K$ 

15960 

H3=LEN<K$1 

15970 

L$  =Lt&K$ 

15980 

M(I »21=H4 

15990 

H< I .3>=H3 

16000 

H4=H4+H3 

+++1+++ 

16010 

1  =  1  +  1 

16020 

GO  TO  15680 

+++1+++ 

16030 

REM  H$='1‘.  TRIANGLE  SYMBOL 

16040 

H(It1)=1 

16050 

60SUB  93<?0 

1  6060 

GO  TO  15880 

+++1+++ 

16070 

REM  H$=’2'.  SQUARE 

16080 

H( I . 1 )=2 

16090 

GOSUB  9450 

16100 

GO  TO  15880 

+++1+++ 

16110 

REM  Ht  =  '3*  .niAMONTi 

16120 

H( I . 1 )=3 

16130 

GOSUB  9520 

16140 

GO  TO  15880 

+++1+++ 

16150 

REM  H$='4'  .  1 

16160 

Hf.  I  f  1  )=4 

16170 

GOSUB  9590 

16180 

GO  TO  15880 

+++1+++ 

16190 

REM  HT  =  '5*  .  X 

16200 

H(I.1)=5 

UNCLASSIFIED 
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+++l++f 


+  4-  +  1  +  +  + 


+++1+++ 


+  +  +  1  +  +  + 


+  +  +  1  +  +  + 


16210 

GQSUB  9650 

16220 

GO  TO  15380 

16230 

REM  H$=‘6’  . 

16240 

H( I . 1 )=6 

16250 

GOSUB  9710 

16260 

GO  TO  15380 

16270 

REM  H$=’7' t 

16280 

H< I f 1 )=7 

1  6290 

GOSUB  9760 

16300 

GO  TO  15880 

16310 

END 

16320 

H7=  I 

16330 

VIEWPORT  20 

16340 

WINDOW  Xl.X 

16350 

CHARS  I ZE  2 

16360 

return 

1  6370 

END 

16380 

REM  PRINT 

16390 

CHARSIZE  3 

16400 

VIEWPORT  5» 

16410 

WINDOW  Xl-0 

16420 

IF  09=32  TH 

16430 

VIEWPORT  2» 

16440 

WINDOW  Xl-0 

16450 

FOR  1=1  TO  1 

16460 

MOVE  009; 

16470 

IF  H(I»1) 

16480 

GOSUB  H(I 

16490 

PRINT  009 

16500 

K$  =  SEG(L  » 

16510 

PRINT  @09 

16520 

NEXT  I 

16530 

VIEWPORT  20 

16540 

WINDOW  X1»X 

16550 

CHARSIZE  2 

16560 

RETURN 

1  6570 

END 

UNCLASSIFIED 


i-’.  ^  - 


'  ■'y. 


UNCLASSIFIED 


DATACOM  1220  PRINTER  SET-UP 


Appendix  V 


Turn  the  Datacable  knob  to  position  1  (4054). 

Install  8*4  X  11"  paper  In  printer. 

Turn  the  printer  parameters  as  follows: 

a.  Depress  the  SETUP  key.  Keep  It  depressed  while  doing  steps 
b-d 

b.  set  M  to  1 

c.  set  W  to  3 

d.  for  8*s  X  11"  paper,  set  F  to  66 

Manually  position  the  top  of  the  paper  so  It  Is  ~  H"  above  the 
printer  head. 
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The  settings  below  are  for  an  8*5  x  11"  sheet  of  paper,  as  shown  In 
Figure  1  of  the  text. 

1)  Turn  the  Plotter  ON 

2)  Position  the  paper  with  the  bottom  right  hand  corner  at  the 
arrow  mark  on  the  platten.  Push  Media  Change  button  to  hold 
the  paper  in  place. 

3)  Install  a  fiber  tip  pen  in  the  Pen  1  holder. 


Set 

the  pullout  Parameter  Entry  card  as  follows: 

a. 

Parameter  Set  Up  Select 

Set  Up  2 

b. 

Media  Form 

Sheet 

c. 

Initial  Page  Size 

A 

d. 

Initial  Page  Format 

Drafting 

e. 

Page  Orientation 

Vertical 

f. 

Initial  Aspect  Ratio 

Full  Page 

g- 

Initial  Axis  Orientation 

#2  X  4.>Y 

h. 

Line  Quality 

Enhanced  2 

i. 

Pen  Parameter  Access 

Pen  1 

j. 

Pen  Type 

Fiber  Tip 

k. 

Pen  Pressure 

5  gm 

1. 

Pen  Velocity 

Full  speed  axial 

m. 

Alpha  Character  Quality 

Enhanced 

n. 

Interface  Select 

#2  (GPIB) 
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